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SAVE TIME AND MONEY 
SUBSCRIBE TO ANALOG 

SAVE $14 OFF THE 
COVER PRICE WITH 
THE CONVENIENCE 
OF HAVING ANALOG 
DELIVERED DIRECT- 
LY TO YOUR DOOR 
BEFORE IT EVEN HITS 
THE NEWSSTANDS. 
GET THE MOST OUT 
OF YOUR COMPUTER. 
SUBSCRIBE TO 
ANALOG 
TODAY 
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Ever since the release of the XE Game 
System, the controversy has raged as 
Atari computer owners all over the country 
continue to question the company's wis- 
dom in staying active in the electronic en- 
tertainment industry. Many believe that for 
Atari to be assured of continued success, 
it must obtain its niche in the business 
world, a place where a connection to 
Space Invaders and Pole Position is fa- 
tal. How, they say, can Atari gain the 
respect it deserves in the "real" world 
when they insist on being a toy 
manufacturer? 

One might better ask: How can a com- 
pany thrive if they choose to ignore exist- 
ing opportunities in favor of pursuing 
long-shots? 

The fact is that Atari's biggest market 
has always been in home electronics, 
not in business, an area that is almost wholly dominated by IBM 
fanatics. With this in mind, one has to wonder if Atari hasn't 
already— knowingly or unknowingly, with or without regrets- 
chosen the home electronics market as its permanent bat- 
tleground. And if this is indeed the case, why fight it? The com- 
pany image we might like to see Atari gain has very little to do 
with the realities of marketing— realities that are governed almost 
solely by profit. 

Consider this: Atari has admitted that the sales of the 8-bit com- 





Sega), while at the same time, boost inter- 
est in the existing 8-bit line of computers. 
Remember, cartridges for the XE Game 
System are compatible with the 8-bit com- 
puters. It's Atari's hope that the new 
machine will rekindle the interest of third- 
party software developers (the fact that 
cartridge-based software is much harder 
to pirate will certainly help), who can take 
advantage of a double audience: both 
video game owners and computer 
owners. 

Atari feels that they can sell enough of 
the new machines to make software de- 
velopers sit up and take notice. They also 
believe that, because the XE Game Sys- 
tem is expandable and comes with Atari 
BASIC, many people, in the midst of their 
gaming, will discover a latent interest in 
computing and move up to other 
machines. The more people that make that transition, the more 
demand there'll be for more "serious" software— and the more 
incentive there'll be for developers to meet that demand. 

What's in it for you? Hopefully, this' II mean many new titles 
for your XL or XE computers— because the cartridges being 
released for the XE Game Machine are 100% compatible with 
the 8-bit computer line. And if the scenario discussed in the 
preceding paragraph— game system owners discovering an in- 
terest in computing— comes about, perhaps there'll be more 
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puter line have been poor at best, and except for a handful of 
releases from small developers, there's been very little new soft- 
ware. Atari itself released about a half dozen new titles— including 
Silent Butler, Star Raiders 11, Music Painter and Atari 
Planetarium— a while back, but has since lapsed back into 
silence. 

What's to be done? 

According to Atari's Neil Harris, the XE Game System is part 
of the solution. The idea was to release a new machine that could 
provide some competition for Nintendo's entertainment system 
(it seems that the video game craze is not as dead as some be- 
lieve, as evidenced by the sales of not only Atari's entries into 
the market, but by their two major opponents, Nintendo and 



forthcoming than just games. 

Sound unlikely? Maybe. Evaluating a potential market is a 
tough job, one that is fraught with pitfalls. The number of vari- 
ables involved, often variables the manufacturer is unaware of 
until it's too late, make marketing anything but a science. 

All we can do right now is sit back and see what happens as 
the entertainment system giants jockey for position in the market- 
place. If the XE Game System is the success that Atari predicts 
it'll be, it should bring good things for owners of 8-bit computer 
systems. If nothing else, it'll mean continued health for Atari in 
the future and a flow of revenue to finance other new and excit- 
ing projects. 

Hey. We all have to make the money where we can. fl 
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No portion of this magazine may be 
reproduced in any form without written 
permission from the publisher. Many pro- 
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domain. 

Due, however, to many requests from 
Atari club libraries and bulletin-board sys- 
tems, our new policy allows club libraries 
or individually run BBSs to make certain 
programs from ANALOG Computing 
available during the month printed on that 
issue's cover. For example, software from 
the July issue can be made available July 1 . 

This does not apply to programs which 
specifically state that they are not public 
domain and, thus, are not for pubhc 
distribution. 

In addition, any programs used must 
state that they are taken from ANALOG 
Computing magazine. For further infor- 
mation, contact ANALOG Computing at 
(213) 858-7100 Ext. 163. 



SUBSCRIPTIONS 

ANALOG Computing, P.O. Box 
16927, North Hollywood, CA 91615, 
(818) 760-8983. Payable in U.S. funds 
only. U.S.: $28-one year, |54-two years, 
$76-three years. Foreign: Add $7 per 
year. For disk subscriptions, see the cards 
at the back of this issue. 



AUTHORS 

When submitting articles and programs, 
both program listings and text should be 
provided in printed and magnetic form, 
if possible. Typed or printed text copy is 
mandatory, and should be in upper- and 
lowercase, with double spacing. If a sub- 
mission is to be returned, please send a 
self-addressed, stamped envelope. 

In addition, any programs used must 
state that they are taken from ANALOG 
Computing. For further information, write 
to ANALOG Computing, P.O. Box 
1413-MO, Manchester, CT 06040-1413 
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In a move to expand their product line, ICD 
has begun marketing the Optimized Systems 
Software product line. OSS was one of the 
first software companies to support the Atari 
800 in the early 1980's. Popular OSS 
products such as Action and Mac 65 are avail- 
able through ICD and its dealer network. ICD 
began talking with OSS late in 1987 with a 
contract signed in January of 1988. OSS has 
been struggling for the past year. Bareware, 
OSS's line of inexpensive ST software, never 
really caught on due to OSS's financial woes. 
ICD is currently reviewing the feasibility of the 
Bareware line. 

ICD 1220 Rock Street, Rockford, IL, 
61101-1437(815) 968-2228 
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hard disk drive wlien upgrading to ST sys- 
tems. A $20 cable is needed to connect tlie 
ICD hard disl< to the ICD MIO Board. 

ICD, 1220 Rock Street, Rockford, IL, 
61101-1437, (815) 968-2228 



ICD has temporarily discontinued produc- 
tion of the 1 Megabyte MIO board due to the 
high price of DRAM memory chips. The MIO 
board gives your Atari computer a hard disk 
controller, serial and parallel port, and an ex- 
ternally powered RAM Disk. ICD currently 
sells the 256K version for $199. DRAM chip 
prices have risen greatly, making the 1 Mega- 
byte version of the MIO board very costly. 
Production will resume later this year when 
DRAM chip prices are expected to fall. 

The ICD MIO board allows you to add an 
ST compatible ICD hard disk to your 8 bit sys- 
tem. ICD is currently shipping 20 to 100 
megabyte disk drives that range in price from 
$699 to $1699. 8 bit owners can use the same 
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ICD will be shipping SpartaDOS X in 
mid-1 988. The new disk operating system for 
8 bit users will come in a plug-in cartridge and 
support 'fast' disk I/O routines. Loading of 
DOS will take half the time it takes to load the 
current system utilities. SpartaDOS X is com- 
patible with the new Atari XF551 Disk Drive. 
ICD, 1220 Rock Street, Rockford, IL 
61101-1437, (815) 968-2228 
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The XF551 floppy disk drive is now ship- 
ping. The XF551 is a replacement for the 
older Atari 1 050 floppy disk drive. The XF551 
is a double-sided double-density drive that 
comes with Atari DOS 2.5. The unit is capa- 
ble of storing 130K bytes using the DOS 2.5, 
and will later be capable of storing 1 30K bytes 
using the new ADOS from Atari, when it be- 
comes available later this year. The XF551 
is also compatible with ICD's SpartaDOS 3.2. 
The XF551 carries a suggested list price of 
$219.95. 

ATari Corp., 1196 Borregas Avenue, Sun- 
nyvale, CA 94086 
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The PAL system is a programmer's friend. 
PAL supports address vector lookup, hex cal- 
culator math, ATASCII to HEX conversion, 
6502 instruction set conversions, trapping, 
disk utilities and more. PAL works with your 
stock XL/XE systems, requiring no changes 
or modifications to work. Contact Dataque for 
more information. 

Dataque Software, 3308 Park Avenue West, 
P.O. Box 134, Ontario, Ohio 44862 
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Atari Corp. said net income for the fourth 
quarter '87 dropped to $18.70 million from 
$23 million. The decrease was mostly due to 
continued losses from Federated Group, an 
Atari subsidiary. The Federated Group was 
purchased in 1987 to provide an outlet for 
Atari computer products. Atari has estimat- 
ed Federated's return to the black in the 
fourth quarter of 1988. Atari expects Feder- 
ated to break-even for calendar '88. Atari 
sales overall for 1987 were posted at $493.17 
million, indicating healthy sales in home com- 
puters (51 % of sales), video games (23%) and 
retail business (26%). 
Atari Corp., 1196 Borregas Avenue, Sun- 
nyvale, CA 94086 
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To say our mailbox has been full lately would 
be like saying the ocean contains a little water. 
Now that ANALOG Computing is back on 
the stands, it seems that everyone has the 
same questions regarding subscriptions, back 
issues and other related topics. This month's 
Reader Comment focuses on those 
questions. 

S E FOv^ I <ZZ E ! 

It's been a long time since I've received my 
magazines, and I'm worried that my subscrip- 
tion might not be current. Now that 
ANALOG'S old offices are closed down, who 
should I contact to check on this? 

—Fred Billingsley 
Dunphy NV 

Chances are that your subscription is current, 
and that you'll be getting your magazines 
regularly from now on. But if you're worried 
and would like to verify your account, you 
should contact our new customer-service 
department. You can reach tham at (818) 
760-8983, or write to them at: ANALOG Com- 
puting, PO. Box 16927, North Hollywood, CA 
91615. The customer-service department can 
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Looks like something 
snuck into the printing press. 



handle questions on current subscriptions, or- 
dering information, address changes and 
back issues. 
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Help! I was busily typing in Labyrinth from the 
April issue, and when I got to Lines 2150 and 
2160, I discovered that a couple of numbers 
were smudged. Please tell me what they're 
supposed to be so I can finish typing in the 
game. I'm trying to play it. 

—Glen Richards 
Windsor, CT 

WhoopsI Looks like something snuck into the 
printing press. For those of you trying to type 



in Labyrinth, the fourth number from the end 
of Line 2150 should be 164 and the third num- 
ber in Line 2160 should be 133. And while 
we're on the subject, if you need program 
help or technical information on something 
related to the magazine, you may contact our 
Technical Line at (203) 645-6236 between the 
hours of 9:00 a.m. to 5:30 p.m. I^onday Wed- 
nesday and Thursday and 9:00 a.m. to 4:00 
p.m. Tuesday and Thursday, EST Please note 
that this number is absolutely not for subscrip- 
tion information or ordering. 
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My ANALOG collection is sadly missing 
several issues. I'd really like to fill as many of 
the holes as I can. Could you tell me whether 
back issues are still available, and if so, how 
I can go about getting them? 

Elliot White 
Portland, OR 

We are in the process of moving our invento- 
ry of back issues to a new warehouse, as well 
as organizing them; so that we can process 
orders in the fastest possible way Back issues 
may be ordered by calling (818) 760-8983 (this 
includes back disk issues as well). However, 
some issues are sold-out; we'll have informa- 
tion next month on which are still available. 
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I just picked up the April issue of ANALOG 
Computing on the newsstand, and now I 
would like to know how I can get the disk for 
that issue. The programs look great, but I'm 
afraid I'm not much of a typist. 

-Al Wallach 
Lancaster, SC 

We are now setting up a new order/process 
center to handle disk ordering. Readers will 
be able to order a disk from a current issue 
and expect to have the disk shipped immedi- 
ately information on disk ordering will be forth- 
coming. In addition, defective disk returns will 
be handled on a same-day basis They should 
be returned for replacement to: ANALOG 
Computing, PO. Box 1413-M.O., Manchester, 
CT 06040-1413 

scz>r~-i^-ri— I ii^sjc:^ 

I waited too long to buy my copy of the 
ANALOG 8-bit Extra (my allowance doesn't 
go as far as it used to), and now the book- 



store where I saw it is sold-out. Can I still get 
a copy? I didn't see an advertisement for it 
in the April issue, and I'm afraid it may be sold- 
out completely 

—Dennis Anderson 
San Diego, CA 



A/ever fear The ANALOG 8-bit Extra can still 
be ordered from us. The same is true of the 
ANALOG Pocket Reference Card. Future is- 
sues of ANALOG Computing will carry adver- 
tisements and ordering information for these 
and other items. 
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Boy, it sure was great to go out to my mail- 
box the other day and find the April issue of 
ANALOG waiting for me. I had given up all 
hope of ever seeing my favorite Atari maga- 
zine again. The new issue is more of the fine 
stuff I've come to expect from you, and I was 
delighted to see all the familiar names in the 
Table of Contents. Welcome back, guys! 

—Edward Parker 
Portland, ME 

Thanks, Ed. We're glad to have been able to 
give you that nice surprise. And you can ex- 
pect a lot of other nice surprises in the future. 



I bd given up 
a//A(]pe of ever see- 
ing my favorite 
Atari magazine 
again. 



With the new staff— a group of dedicated and 
professional peop/e— ANALOG Computing 
will continue to grow and mature. We're striv- 
ing as never before to attain our full 
potential—and you'll see the difference We 
promise. 
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800 4 PIECE BOARD SET $28.50 

SET INCLUDES 800 MAIN, CPU, 10K ROM AND POWER BROS 
ALL MODULES NEW AND COMPLETE WITH IC'S 



800/400 MODULES 

'9.50 ea. 

• 800 Main Board 

• 800/400 CPU with GTIA 

• BOO 10K "B" O.S. Modulo 

• 16K RAM less RAM IC's 

• 400 Main Board 

• 800 Power Supply Board 
■ 400 Power Supply Board 

• 800XL Modulalor 



IC'S $4.50 ea. 

• CPU .... CO14806 

• POKEY C012294 

• PIA C014795 

. GTIA . . . CO14805 

• ANTIC . . C012296 

• CPU .... CO10745 
•PIA ... . CO10750 

• CPU . . . : C014377 

SERVICE RATES 

• 800 $39.50 

• 850 $39.50 

• 810 $69.50 

•1200XL...' $49.50 
. 1050 $75.00 

INCLUDE $7.00 RETURN 
SHIPPING AND INSURANCE 



POWER PACKS 

Replacement transformer tor: 
800/400, 810, 1060, 1200XL 

and 1020 units $14.60 

1030 Power Pack .. . $9.50 

1050 MECH 

Factory fresh TANDON 
mechs. make difficult repairs 
a snap. Units are complete 
with Head, Stepper, Spindle 
motor, belt etc. Just plug In, 
no difficult alignments or 
adjustments required. $47.50 

MISC. HARDWARE 

600XL 64K Upgrade $29.95 
Fastohip for 80CV400 $15.60 

Atari Joystick $7.00 

Atari PaJdIes $6.50 

BOARD SETS 

New Parts complete with iC's 
800 4 PIECE BOARD SET 
Includes 800 Main, CPU,10K 
ROM and Power Brd. $28.60 
400 3 PIECE BOARD SET 
Includes 400 Main, CPU and 

Power Board $19.50 

810 BOARD SET 
Sideboard with Sep., Power 
and Analog Boards . $67.50 



REPAIR MANUALS 

SAMS Service Manuals for the 
following units; 800, 800XL, 
130XE, 400, X)50.... $19.60 
520 ST Servfce Man. . $37.50 

PILOT PROGRAIvWING 
CART + MANUALS $1750 

SOFTWARE 

Pac-Man Cartridge... $4.00 
Deluxe Invaders Cart. . $4.00 
Journey/Planets Can. $4.00 
Gorf Cart. 800/400 . . . $4.00 

Drop Zone Disk $9.95 

Big Math Attack Disk . $5.00 

Pathfinder Disk $5.00 

Encounter on Questar $6.00 
Musical Pilot Chlldware $5.00 
B^ic Cartridge ... . $10.00 

Q'Bert Cartridge $10.00 

Donkey Kong Cart. . . . $5.00 

Eastern Front Cart $5.00 

Atlantis Cartridge $6.00 

Crossfire Cart $5.00 

COMPUTER BOOKS 
Inside Atari Basic... $5.00 
Atari Basic Ref. Man. $5.00 
XE Users Handbook $17.50 
XL Users Handbook $17.50 
/teserrbly Language $19.95 
Advanced Proq $19^0^ 



CALL TOLL FREE 1-800-551-9995 

INSIDE CALIFORNIA OR OUTSIDE U.S. PHONE 415-352-3787 



AMERICAN TECHNA- VISION (T.V.) 

Mall Order 15338 Inverness St, San Leancko, Ca. 94579 

Service Center 2098 Pike Ave., San Lean*o, C«. 94577 

NO MINIMUM ORDER! We accept money orders, personal checks or C.O.D.s, V1!>A, 
Master/Card okay. Credit cards restncled to purchases °^w $20.00. No personal checte on 
COD- Shipping: $4.00 shipping and handling on orders under $150.00. Add $225 tor C.o.u. 
orders in Canala total $6.00 for shipping and handling. Foreign shppmg extra Call r^idenls 
include 7% sales tax. Prices subject to change wjlhoul notice. Atari is a trademark d Atari Corp. 
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SOUTHERN SOFTWARE 

205-956-0986 

24 HOUR PHONE 

CALL OR WRITE FOR FREE CATALOG 

ALL 8 BIT AND ST SOFTWARE IN STOCK 

CALL FOR PRICES AND LATEST TITLES 

SOFTWARE IN STOCK FOR OTHER COMPUTERS 

PACES LISTED FOR MAIL ORDER ONLY - ADO 10% ON PHONE ORDERS 



CIRCLE #101 ON READER SERVICE CARD. 



ST COWtntRS 


CALL 


CHIPHUW 


29.95 


80 COL CARD 


79.95 


lOSO DISK DDIVE 


239.95 


ATARI WRITER PLUS 


39.95 


COWUlSIVt COPIER 


29.95 


lOSO H/HAPf>< INST 


399.95 


BASIC CARTRIDGE 




COPY II ST 


29.95 


130 XE 


139.95 


BASIC XE 




XH-301 HOOEH 


49.95 


IFS51 DISK DRIVE 


189.95 


BASIC XL 




SX-212 HOOEH 


89.95 


520 DISK DRIVES 


CALL 


SUPER ARCHIVER 




S»t804 PRINTER 


189.95 


850 INTERFACE 


109.95 


BIT WRITER 




1027 PRINTER 


124.95 


m OHNIHOH 


59.95 


DOS 2.6 W/HAHUAL 




XDH121 LQ PRINTER 199.96 


ACCESSORIES 


CALL 


XL/XE POWER SDPPH 27.95 


ATARI LAB ST KIT 


49.95 


APE FACE 


49.95 


1027 IMC ROLLER 


4.97 


JOY STICK 


8.96 


AVATEI 1200 


79.95 


HAPPV ARCHIVER 


34.95 


LOGIKHRON CLOCK 


39.95 


AVATEI 2400 


W9.95 


I/O cono 


13.95 


HARK WILLIAHS C 


124.95 


CHIP/ARCHIVER aiO 


69.95 


I/O CORD 10 FT 


19.95 


HEGAHAI C 


139.95 


PRO iURNER 


179.95 


HAC/65 


64.95 


HOCUlA-2 


69.97 


EZ RAH 520 


169.95 


HAC/66 TOOL KIT 


27.95 


P.R. CONNECTION 


59.96 


HAPPy 1050 ENKANC 


119.95 


ACTION 


64.96 


WARP SPEED DOS XL 


24.96 


HAPPr 810 EKHANCE 


1M.95 


ACTIOK TOOL KIT 


27.95 


PC BOARD DESIGNER 


169.96 


HAPPY COHTROLER 


39.95 


BASIC XL TOOL KIT 


27.95 


PROLOG 


69.95 


HARD DISK DRIVES 


CALL 


BASIC «E TOOL KIT 


27.95 


PUBLISH PARTNER 


119.96 


ICD HIO 1 MEG 


299.95 


PERSONAL PASCAL 


74.95 


SOUND DIGITIZER 


119.95 


ICD HIO 256K 


199.96 


SPARTAOOS TOOL KIT 24.95 


• WE HAVE COLOR RIBBONS • 


XE ADAPTER FOR HIO 19.95 


ST HOST ADAPTER 
SPARTS DOS CART 
OHNIVIEW XL/XE 


99.95 
69.96 
36.95 


FOR ALL PRINTERS 


CALL 


PRINTERS 


CALL 


• ATARI REPAIR PRICES . 


PRINTER CONNECT. 


39.96 


NEWELL 256K 


34.95 


ITEMS NOT LISTED 


CALL 


R-TIHE CARTRIDGE 


49.95 


OHNinON 400/800 


44.96 


1050 DISK DRIVE 


89.95 


RAHSO XL UPGRADE 


29.96 


ST COPT 


29.95 


130 XE 




256K CHIP SET 


49.95 


NUBERIC KEYPAD 


39.95 


65 IE 


49.96 


RAHROO XL 


39.95 


TOP DOS 1.6 PLUS 


29.95 


520 DISK DRIVE 


89.95 


LIGHT PEN 


69.96 


PRINT/HOOEH CABLE 


13.96 


520 ST 


139.96 


U.S. OOUBLER 


29.96 


RAHCHARGER 


139.96 


850 INTERFACE 


49.95 


UPRINT INTERFACE 


59.95 


RAHCARO FOR 800 


129.95 


ATARI PRINTER 


69.95 


XL/XE BOS 


49.96 


SHART LINK HOOEH 


189.95 


XL/XE/150 POW SUP 


12.95 



PH1CES SUBJECT TO CHANGE WITHOUT NOTICE 

ADO $5 FOR SHIPPfNQ AND NSURANCE MOST OflDERS SHIPPED SAME 

DAY . FOREIGN ORDERS WELCOME WITH SUFFCeNT POSTAGE 

INCLUDED . ALABAMA RESIDENTS ADD 7% SALES TAX . AD0_6% FOR 

VISA ADO $5 FOR ABMAL ADO $ 1 5 FOR OVERNIGHT SHIPMENT 

ALLOW THREE WEEKS FOR PERSONAL CHECKS 

SOUTHERN SOFTWARE 

1879 RUFFNER ROAD BIRMINGHAM. AL 35210 

CIRCLE #102 ON READER SERVICE CARD. 
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When you want to talk Atari 



XL/XE HARDWARE 



INTERFACES 

ICD 

P:R Connection 59.99 

Printer Connection 39.99 

Supra 

1150 38.99 

1151 (1200 XL) 41.99 

Xetec 

Graphix Interface 38.99 

Atari 

850 Interface 109.00 

COMPUTERS 




\ ^^ 



M V* ^' 



\ \ ^ v; 



Atari 130XE ^135 

Atari 

65 XE 99.99 

XL/XE ENHANCEMENTS 

Axlon 32K Mem. Board (400/800) . 19.99 
Atari 80 Column Card 79.99 

MODEMS 

Atari 

SX212 300/1200 (ST) 89.99 

835 19.99 

XMM301 42.99 

Anchor 

VM520 300/1200 ST Dir. Con ...119.00 

Avatex 

1200 HC 99.99 

2400 179.00 

Supra 

2400 Baud XL, XE 169.00 

2400 Baud ST 169.00 

2400 Baud (no software) 149.00 

MONITORS 

Magnavox 

CM8502 13" Comp. & cables . . .179.00 



ST HARDWARE 




520 ST FM . ^^ 

RGB/COLOR V89 

Includes: 520 ST FM with 31/2" drive 
built-in, mouse, power supply and 
1224 color monitor. 

1040 RGB/Color System 939.00 

1040 Monchirome System 779.00 

1040 Computer (no monitor) . . .639.00 
520ST FM Monocfirome System 
(Includes: 520 ST, internal drive, 
modulator, mouse, Basic and 

monochrome monitor) Call 

SM124 Monochrome Monitor ..169.00 
SM1224 Color Monitor 329.00 

Atari 

XF551 Drive (XL/XE) 189.00 

AA314 DS/DD Disl< (ST) 199.00 

AA354 SS/DD Disk (ST) 129.00 



DRIVES 




Atari SHD204 ,^^^ 

20 Meg for ST *559 

I.B. 

51/4 ST Drive 209.00 

Indus 

GTS 100 31/2" Drive (ST) 199.00 

GT Drive (XL/XE) 179.00 

Supra 

20 Meg Hard Drive (XL/XE) 639.00 

20 Meg Hard Drive (ST) 549.00 

30 Meg Hard Drive (ST) . .689.00 



PRINTERS 



Atari 

1020 XL/XE Plotter 



.31.99 




Atari XMM 801 ^189 

XM-M8OI XL/XE Dot Matrix 189.00 

XM-M804 ST Dot Matrix 1 79.00 

XDM 121 Letter Qlty. XL/XE ...199.00 

Brother 

M-1109100cps Dot Matrix 199.00 

M-1409 180 cps Dot Matrix 309.00 

HR-20 22 cps Daisywheel 339.00 

Citizen 

120D 120 cps Dot Matrix 149.00 

180D 180 cps Dot Matrix 169.00 

Premier-35 35 cps Daisywheel .479.00 
Epson 

LX-800 150 cps, 80 col 179.00 

Hi-80 4 pen plotter 249.00 

FX-86E 240 cps, 80 col Call 

FX-286E 240 cps, 132 col Call 

LQ-500180cps, 24-wire Call 

LQ-850 330 cps, 80 col Call 

EX-800 300 cps, 80 col Call 

NEC 

P2200pinwriter 24-wire 379.00 

P660 pinwriter 24-wire 459 00 

P760pinwriter132col 669.00 

Okidata 

Okimate 20 color printer 129.00 

ML-182 120 cps, 80 column 239.00 

ML-192-1- 200cps,80column ..359.00 

ML-193-f- 200CPS, 132col 469.00 

Panasonic 

KX-P1080i 144 cps, 80 col 189.00 

KX-P1091i 194 cps, 80 col 199.00 

Star IVIicronics 

NX-1000 140 cps, 80 column ...169.00 

NX-15 120 cps, 132 column 319.00 

Toshiba 

P321-SL 216 cps, 24-wire 499.00 



WE SHIP 90% 
OF ALL ORDERS 
WITHIN 24 HOURS 






SELECT FROM 
OVER 3000 
PRODUCTS 



COMPUTER MAIL ORDER 



you want to talk to us. 



XL/XE SOFTWARE 



Access 

Leaderboard Golf (pk.) 15.99 

Tournament Disk 13.99 

Accolade 

Hardball 19.99 

Atari 

Filemanager 1 1 .99 

Music Painter 11.99 




C/% |pi QQ 

Atariwriter Plus uO 

Atari Program Exchange 

Misc. Programs (cassettes) ... .at 1.99 
Broderbund 

Printshop 26.99 

Karateka 14.99 

Cygnus 

Starfleetl 32.99 

Datasoft 

Alternate Reality (city) 23.99 

Alternate Reality (dungeon) 25.99 

221 Baker St 21.99 

Electronic Arts 

Touchdown Football 11.99 

Pinball Construction 9.99 

Microprose 

Top Gunner 15.99 

F-15 Eagle Strike 21.99 

Silent Service 21.99 

Origin Systems 

Ultima 4 36.99 

Roklyn SPECIAL 

Gorf/Wlzard of Wor/AT Deluxe/ 
Anti-Sub/Journey to Planet . .(ea.)3.99 
Strategic Simulations 

Gemstone Warrior 1 1 .99 

Sublogic 

Flight Simulator II 31.99 

Scenery FL, NC, SC 14.99 

X-Lent 

Typesetter 22.99 

Printshop Interface 21.99 



ACCESSORIES 



Maxell 

MD1-MSS/DD5V4" 7.99 

MD2-DMDS/DD5V4" 8.99 

MF-1DDMSS/DD3V2" 12.49 

MF2-DDM DS/DD3V2" 18.49 

Sony 

MD1DSS/DD5V4" 7.99 

MD2DDS/DD5V4" 9.49 

MFD-1DDSS/DD3V2" 12.49 

MFD-2DDDS/DD3y2" 19.49 

Allsop Disk Holders 

Disk File 60-5 V4" 9.99 

Disk File 30-3V2" 9.99 

Curtis 

Emerald 39.99 

Safe Strip 19.99 

Universal Printer Stand 14.99 

Tool Kit 22.99 

ICD (XL/XE) 

Sparta DOS Construction Set . . .28.99 

US Doubler/Sparta DOS 47.99 

Real Time Clock 48.99 

Rambo XL 29.99 

Multi I/O Board 256K 169.00 

Multi I/O Board 1 Meg 299.00 

USDoubler 28.99 



ST SOFTWARE 




BATTERIES INCLUDED 
Degas Elite ^^38^® 

ACCGSS 

Leaderboard Golf 22.99 

Activision 

Hacker II Doomsday 29.99 

Antic 

Stereo CAD 3-D 54.99 

Atari 

Algebra I Vol II GRD 7-9 16.99 

Avant Garde 

PC Ditto 64.99 

Comnet 

ST Term 21.99 



ST SOFTWARE 



Electronic Arts 

Gridiron Fooball/Auto Duel.(ea.) .30.99 
Isgur Portfolio 129.00 

Firebird 

Jewels of Darkness 21.99 

Infocom 

Beyond Zork 34.99 

Michtron 

Major Motion 25.99 

Microprose 

Gunship 32.99 

F-15 Strike Eagle 24.99 

Miles Software 

ST Wars 28.99 

Mark Williams 

C 119.00 

Paradox 

Wanderer (3D) 25.99 

WarZone/Fireblaster 26.99 

Psygnosis 

Barbarian/Deep Space (ea.) 26.99 

Soft Logik Corp. 

Publishing Partner 59.99 

Strategic Simulations 

Rings of Zilfin 23.99 

Sublogic 

Flight Simulator II 32.99 

Timeworks 

Swiftcalc/Wordwriter (ea.) 47.99 

PartnerST 37.99 




DAC 

Easy Accounting 

Unison World 

PrintmasterPlus 

Word Perfect Corp 

Word Perfect 4.1 



^59 



99 



. .28.99 
.199.00 



In the U.S.A. and in Canada 

Call toll-free: 1-800-233-8950 

Outside the U.S.A. call 717-327-9575, Fax 717-327-1217 

Educational, Governmental and Corporate Organizations caii toll-free 1-800-221-4283 

CMC. 477 East Third Street, Dept. B7, Wllliamsport, PA 17701 

ALL MAJOR CREDIT CARDS ACCEPTED. 

POLICY- Add 3% (minimum *7.00) shipping and liandiing. Larger shipments may require additional charges. Personal and company checks require 3 weeks to 
clear For faster delivery use your credit card or send cashier's check or bank money order, Credit Cards are NOT charged until we ship. Pennsylvania residents 
add 6% sales tax All prices are U.S.A. prices and are subject to change and all Items are subject to availability. Defective software will be replaced with the same 
item only. Hardware will be replaced or repaired at our discretion within the terms and limits of the manufacturer's warranty. We cannot guarantee compatibility. 
All sales are final and returned shipments are subject to a restocking fee. 

CIRCLE #103 ON READER SERVICE CARD. b706 
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recently bought a used 
GEMINI-15 dot-matrix 
printer with a 132-column-wide 
carriage. I took it home, hooked 
it up, loaded some paper, and 
began listing the BASIC pro- 
grams I had been writing. My 
first clue that I had a problem 
was the sight of the print head 
marching off the right edge of 
the 80-column paper, inking its 
way across the rubber roller. 
The manual revealed that the 
printer's programmable features 
have default settings that load in 
automatically each time the 
power is turned on. The default 
right margin of a Gemini 15 
turns out to be 132. 
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To change these settings, you must send 
Functional Commands, or function 
codes, to the printer, using LPRINT 
statements. Function codes consist of an 
ESC command in combination with 
other numbers and letters. For exam- 
ple, to select italics, you type LPRINT 
CHR$(27);CHR$(52). The CHR$ func- 
tion returns the character represented 
by the ATASCII number code specified, 
e.g. CHR$(27) is ESCAPE, CHR$(52) 
is '4'. All printer options and examples 
of command statements needed are list- 
ed in the printer manual. Typing func- 
tion codes for the options you want to 
use allows you to print or list text in any 
format. To avoid having to look up and 
type all those codes every time I want- 
ed to use my printer I wrote Gem Set- 
up, a BASIC utility program that allows 
you to choose type styles and sizes, turn 
options on or off, alter the top, bottom, 
left and right margins, and change line 
spacing, all without any knowledge of 
printer function codes or programming. 
Instructions are available from the 
menu by choosing Help. 



Line 50 calls a subroutine at the end 
of the program (line 1190) that dimen- 
sions the string variables and initializes 
the default values for the menu. Lines 
1230-1260 zero out the error register 
(memory location 195), and set error 
trapping to line 1250, which turns the 
screen red, and prints a message if the 
printer is off (error 138). Users may 
customize the default right margin, by 
resetting the value of R in line 1280. 

Lines 70-290 turn the screen and 
border black, and print the menu with 
the current values of the options and 
functions, as well as their permissible 
ranges. Options that are on/off (such as 
Condensed print or Italics), use an 
asterisk on the menu to indicate that the 
option is on. Boxes are drawn around 
menu items (lines 70-90) using control 
characters found in your owner's manu- 
al. Line 290 opens an lOCB to the key- 
board for input. This eliminates the 
question mark and the need to type 
RETURN at the COMMAND prompt. 

Lines 310-590 are a stack of If-Then 
statements that respond to correct 
menu choices, in either upper or lower 
cases. These lines send the printer func- 



tion codes, then reprint updated values 
on the menu and return to line 290 for 
input. They also send the program to in- 
put and error checking routines. Sim- 
ple on/off choices are handled right in 
the If-Then statements. These make use 
of the asterisk's presence or absence, 
to determine whether to toggle a func- 
tion on or off. If the asterisk is present 
the program assumes the function is on, 
and toggles it off, erases the asterisk 
from the menu, and loads a blank in the 
assigned string variable (C$). If the 
asterisk is absent, the program toggles 
the function on, assigns an asterisk to 
the variable (C$), and prints it. If the 
input 'falls through' all the If-Then 
statements without finding a match, line 
600 considers it an error and returns 
to line 290 to await more input. 

For options that require numerical in- 
put (such as Bottom Margin), the varia- 
ble LINE is set to the first line number 
of the routine (see Une 630). LINE 
holds the 'return address' of the func- 
tion while GOSUB 1010 sends the pro- 
gram to an error checking subroutine. 
If the input is null, line 1010 POPs the 
stack (necessary when jumping out of a 
subroutine, to keep return addresses 
straight), and goes to the line number 
stored in LINE to reprint the input 
prompt. If input is not null, lines 
1020-1040 check the input one charac- 
ter at a time to insiu-e the ATASCII code 
is correct for numbers. Errors send the 
program to line 1050, which prints an 
error statement, waits for a count of 
200, POPs the stack, and goes to the 
line number stored in LINE. If no er- 
rors are found the input is checked for 
correct numerical range. Input of num- 
bers (line 620) is done using string vari- 
ables (A$), to take advantage of Atari's 
string commands to check each charac- 
ter at subroutine 1010. On return, the 
string variable is converted to a numer- 
ical variable using the VAL function 
(line 640), then checked for correct nu- 
merical range. Errors send the program 
to line 1070, which prints an error 
statement, waits for a coimt of 200, and 
returns. Finally, control codes are sent 
to the printer, the previous menu entry 
is erased by printing blanks over it, the 
new value is printed at the proper place 
on the menu, and the program goes to 
line 290 to await more input. This 



process is similar for Page Length, Left 
Margin, Right Margin, Line Spacing, 
and Top Line. 

Mini print selects superscript mode, 
which produces a very tiny print. When 
this option is in use, use a smaUer value 
for Une spacing, Uke 6/72. An excellent 
tiny print style can be obtained by 
choosing Condensed and Mini print with 
a Spacing of 5. 

Proportional Spacing is sUghtly more 
involved. When it is selected from the 
menu, the program first checks the sta- 
tus of the Proportional Flag (PFL is in- 
itialized to zero at line 1210). If 
Proportional Spacing is off (PFL = 0; 
line 790), an input prompt is printed, 
input is checked for numbers and value, 
and control codes are sent to the 
printer. The existing value of Font is 
erased, the Font status is stored in a 
temporary variable MEM$, and the 
Font variable is assigned a blank 
(F$=" "). Most of this is required in 
case the Help function is used while 
Proportional Spacing is turned on. 
When this happens, it is necessary to 
reprint all values correctly when leav- 
ing Help and returning to the menu. Fi- 
nally, line 830 loads the correct value 
in P$, prints the current Proportional 
Spacing value on the menu, sets the 
Proportional Flag to on (PFL = 1), and 
returns to line 290 for input. 

If Proportional Spacing is already on, 
lines 770-780 send the printer function 
codes to turn Proportional Spacing off, 
reload the correct menu value of Font 
from MEM$, reprint the correct Font 
on the menu, erase the Proportional 
Spacing value on the menu, reset the 
flag (PFL=0), assign a blank to P$, and 
return to line 290 for input. 

Line spacing may be set in 1/72 of an 
inch increments. Normal default spac- 
ing is 1/6 inch (12/72). You can dou- 
ble space by choosing 24 (24/72), tri- 
ple space with 36 (36/72), etc. Line 
spacing should be set after type size is 
selected. 

Selecting Help from the menu turns 
the screen green, and gives you instruc- 
tions. Pushing RETURN reprints the 



To use Gem Set-up, first align the 
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Since 1981 



Lyco Computer 

Marketing & Consultants 



Lyco Means Total Service. 



Monitors 



AATARI" 




Mark "Mac" Bowser, Sales Manager 

I would personally like to thank all of our past customers for helping to 
make Lyco Computer one of the largest mall order companies and a 
leader In the Industry. Also, I would like to extend my personal invitation to 
all computer enthusiasts who have not experienced the services that we pro- 
vide. Please call our trained sales staft at our loll-free number to inquire 
about our diverse product line and weekly specials. 

First and foremost our philosophy Is to keep abreast of the changing 
market so that we can provide you with not only factory-fresh merchandise 
but also the newest models offered by the manufacturers at the absolute best 
possible prices. We offer the widest selection of computer hardware, software 
and accessories. 

Feel free to call Lyco if you want to know more about a particular Item, i 

can't stress enough that our toll-free number Is not Just for orders. fVIany 
companies have a totl-free number for ordering, but if you just want to ask a 
question about a product, you have to mal<e a toll call. Not at Lyco. Our 
trained sales staff is knowledgeabie atx)Ul alt the products we stocit and is 
happy to answer any questions you may have. We will do our best to make 
sure that the product you select wilt fit your application. We also have Satur- 
day hours — one more reason to call us for all your computer needs. 

Once you've placed your order with Lyco, we don't forget about you. 

Our friendly, professional customer service representatives will find answers 
to your questions about the status of an order, warranties, product availabili- 
ty, or prices. 

Lyco Computar •locks ■ mulllmlllon dollar Inventory of factory-fresh 
msrchsndlss. Chancss are we have exactly what you want right In our ware- 
house. And Ihtl means you'll gel II last. In fact, orders are normally shipped 
within 24 hours. Free shippino on prepaid orders over $50, and there is no 
deposit requires on C.O.D. orders. Air freight or UPS Blue/Red Label shipping 
Is avallabis, loo. And all products carry the lull manufacturers' warranties. 

I can't see why anyone would shop anywhere else. Selection from our huge 
In-stock inventory, best price, service that can't be boat— we've got it ail here 
at Lyco Computer. 

TO ORDER, CALL TOLL-FREE: 1-800-233-8760 
New PA Wats: 1-800-233-8760 

Outside Continental, US Call: 1-717-494-1030 

Hours: 9AM to 8PM, Mon. - Thurs. 
9AM to 6PM, Friday — 10AM to 6PM, Saturday 

For Customer Service, call 1-717-494-1670, 

9AM to 5PM, Mon. - Fri. 

Or write: Lyco Computer, Inc. 

P.O. Box 5088, Jersey Shore, PA 1 7740 

Risk-Free Policy: • full manufacturers' warranties • no sales tax outside I 

• prices show 4% cash discouni; add 4% for credit cards • ARC, FPO, 
international: add $5 plus 3% for priority • 4-week clearance on personal c 

• we check for credit card theft • compalabltity not guaranteed • return 
authorization required • price/availability subject to change • Prepaid 
orders under $50 in con., U.S. add $3.00. 



Thomson: 

230 Amber TTU12" $79.95 

4120 CGA $226.95 

4160 CGA $259.95 

4460 EGA $319.95 

4375 UltraScan $389.95 

GB 100 EGA Card $129.95 

GB 200 Super Card $219.95 

Magnavox; 

B(v17652 $04.95 

BM7622 $84.95 

7BM-613 $79.95 

7BM-623 $79.95 

CM8502 $189.95 

CM8505 $209.95 

CM8562 $239.95 

01^8762 $249.95 

BCf^-515 $269.95 

Blue Chip: 

BCM 12" Green TTL $64.95 

BCM 12" Amber TTL $69.95 

NEC: 

Multisync II $599 

Save $21 over NEC Multisync 

with Thomson 4375 UltraScan 

$389.95 



Modems 



Avatex: 

1200e $69.95 

12001 PC Card $69.95 

1200hc Modem $89.95 

2400 $179.95 

24001 PC Card $169.95 

Hayes; 

Smartmodem 300 $149.95 

Smartmodem 1200 $285.95 

Smartmodem 2400 $425.95 

Smarteam 

1200 Baud Modem 




Hayes CempaiJMr 



Access: 

Triple Pack $11.95 

Leader Board Pack $14.95 

Actlvlslon: 

Music Studio $19.95 

Solid GokJ Vol.#1 $10.95 

Batteries Included: 

Paperclip 80 Col $31.95 

Broderbund: 

Print Shop $25.49 

Print Shop Compan $22.95 

Graphic Lib. i, II. Ill $13.49 

Bank SI. Writer $27.95 

Electronic Arts: 

Pinball Con Set $8.95 

Lords of Conquest $8.95 

Startieet 1 $32.95 

Chess Master 2000 $25.95 

Music Con Set $8.95 

Super Boulderdash $8.95 

One on One $8.95 

Firebird: 

The Pawn $22.95 

MIcroleague: 

Microieag. Baseball $22.95 

General Manager $16.95 

Stat Disk $13.95 

'87 Team Disk $13.95 

MIcroprose: 

Conflict in Vietnam $22.95 

F-15 Strike Eagle $19.95 

Kennedy Approach $13.95 

Silent Service $19.95 

Top Gunner $13.95 

Strategic Simulations: 

Battle of Antetiem $28.95 

Phantasie $22.95 

Wargame Construe $16.95 

Wizards Crown $22.95 

Phantasie 11 $22.95 

Shiloh $22.95 

Eternal Dagger $22.95 

Subloglc: 

Flight Simulator II $31.49 



AATARI ^M Joysticks 



Access: 

Leader Board $22.95 

Toumament #1 $11.95 

10th Frame $22.95 

Actlvlslon: 

Champion. Baseball .... $22.95 

Champion. Basketball . $22.95 

Championship Golf $New 

GFL Football $22.95 



MIcroleague: 

MIcroleague Baseball .. $33.95 

General Manager $16.95 

Wrestling $25.95 

MIcroprose: 

Silent Service $22.95 

F-15 Strike Eagle $24.95 

Gunship $28.95 

Strategic Simulations: 

Phantasie $22.95 

Phantasie 11 $22.95 

Road War 2000 $22.95 

Cokiniai Conquest $22.95 

Subloglc: 

Flight aimuiator 11 $31.49 

Scenery Disk $14.95 

TImeworks: 

Wordwriter ST $44.95 

Partner ST $39.95 

Data Manager ST $44.95 

Unison World: 

Art Gallery 1 or 2 $14.95 

Print Master $19.95 

Fonts & Borders $17.95 

Music Studio $27.95 

Bureaucracy $22.95 

Electronic Arts: 

Arctic Fox $25.95 

Empire $32.95 

Starfieel I $32.95 

Chess Master 2000 $25.95 

Gridiron $32.95 

Epyx: 

Sub Battle Simulator ... $22.95 

Worid Games $22.95 

Wrestling $22.95 

Winter Games $1l!95 

Firebird: 

Pawn $25.95 

Starglider $25.95 

GoWen Path $25.95 

Guild of Thieves $25.95 

Tracker $25.95 

Tac 3 $9.95 

Tac2 $10.95 

Tac 5 $12.95 

Tac 1 + IBM/AP $26.95 

Economy $5.95 

Slik Stick $6.95 

Black Max $10.95 

Boss $11.99 

3-Way $19.99 



1-800-233-8760 
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• 144 cps Draft IMA" I UUU 

• 36 cps NLQ 

• EZ Operation Front 
Panel Control 



SEIKOSHA 
Sp 180Ai 



• 100 cps draft 

• 20 cps NLQ 




PRINTERS 



192 cps Draft 
32 cps NLQ 



$199 



Panasonic 

1091 Model II 




Na-IOOO $179.95 

NX-10OOC $179.95 

NX-1000 Color $225.95 

NX-1000C Colot $229.95 

NX-15 $309.95 

NR-10 $339.95 

NR-15 $439.95 

NB-15 24 Pin $699.95 

NB24-10 24 Pin $425.95 

NB24-15 24 Pin $579.95 

BROTHER 

Ml 109 $195 

M1409 $299 

M1509 $335 

M1709 $475 

Twinwriter 6 Dot & Daisy $899 

M1724L $599 

HR20 $339 

HR40 $569 

HR60 $709.95 



SEIKOSHA 

SP 180Ai $129.95 

SP 180VC $129.95 

SP 1000VC $139.95 

SP 1000AP $169.95 

SP 1200VC $155.95 

SP 1200Ai $165.95 

SP 1200AS RS232 $165.95 

SL80Ai $299.95 

MP1300Ai $269.95 

MP5300Ai $399.95 

MP5420Ai $879.95 

SP Series Ribbon $7.95 

SK3000 Ai $339.95 

SK3005 Ai $419.95 

SPB 10 $CALL 

SL 130Ai $599.95 

Toshiba 

321SL $489 

341 SL $659 

P351 Model II $899 

351 SX 400 cps $1019 



EPSON 

LXeOO $179.95 

FXeeE $279.95 

FX2B6E $424.95 

EX800 $399.95 

LQ500 $309.95 

LQIOOO W/Tracloc $549.95 

LQ2500 $819.95 

GQ3500 $LOW 

LQ850 $489.95 

LQ1050 $659.95 

#CITIZEN 

120 D $169.95 

180 D $189.95 

MSP-10 $259.95 

MSP-40 $309.95 

MSP-15 $349.95 

MSP-50 $399.95 

MSP-45 $459.95 

MSP-55 $539.95 

Pramioro 35 $499.95 

Tribule 224 $649.95 



Panasonic 

lOBOi Model II $179.95 

10911 Model II $199.95 

10921 $319.95 

1592 $409.95 

1595 $459.95 

3131 $299.95 

3151 $479.95 

KXP 4450 Laser $CALL 

1524 24 Pin $559.95 

Fax Partner $589.95 

OKIQATA 

Okimate 20 $119 

Okimate 20 w/can $179.95 

120 $189.95 

180 $219.95 

182+ $225.95 

183 $249.95 

192+ $309.95 

193+ $449.95 

292 w/interface $449,95 

293 w/interfaoe $585.95 

294 w/inter(ace $819.95 

393 $955.95 



AATARI 

520 ST Computer 



Built-in 

Drive 

Thomson 

4120 

Monitor 



$769 



95 



AATARI 

1040 ST 
Color System 



$955 



95 




AATARI HARDWARE 

520 ST FM Mono $675.95 

520 ST FM Color $769.95 

1040 ST Mono $799.95 

1040 ST Color $955.95 

130XE Computer $135.95 

SX551 Drive $174.95 

SF 314 Disk Drive $219.95 

Indus GT Atari Drive $169.95 

SHD 204 20 MEG Drive $579.95 

XM301 Modem $42.95 

SX212 Modem $89.95 

GTS 100 (3.5" DSDD ST) $195.95 

GTS 1000 5V. DSDD ST $CALL 



Attention Educational 
Institutions: 

if you are not currently 

using our educational 

service program, please 

call our representatives 

for details. 



520 ST-FM AATARr 

Monochrome 
System 




$675 



AATARr 

1040 

Monochrome 

System 



$789 




CIRCLE #104 ON READER SERVICE CARD. 



print head with the top of a form, then 
turn on the printer's power and run the 
program. Choose the type style, op- 
tions, and margins that you need. Each 
time you select a new value for an op- 
tion, the printer will 'creep' up one line. 
This is not a cause for concern because 
a form feed is sent to the printer when 
you Quit the program, aligning the print 
head with the top of the next form. To 
avoid the form feed, use the BREAK 
key to leave the program. Quit to BAS- 
IC, and send your output to the printer. 
To list a BASIC program, load it into 
memory, then type LIST 'P:' or LIST 
'P:',10,50 to list the range of lines 10 
through 50. 

Perforations can be skipped when 
printing by altering the bottom margin 
and the top line. Setting the bottom 
margin to 2 and the top line to 3 gives 
you two blank lines before and after 
each perforation. Set margins last; they 
vary with the type size selected. 



al small differences in their function 
codes. Listing 1 is the Gemini Version. 
To modify the program for printers, 
make the following changes to Listing 1 . 



line 10 
line 80 



line 200 
line 580 



line 590 
line 770 



line 780 
line 790 



line 800 



line 810- 

830 

line 1090 



change GEMSETUP 
to STRSETUP 
change inverse 
GEMSETUP 10 in- 
verse STRSETUP 
change (1-6) to (1) 
change CHR$(86) to 
CHR$(92) 

change CHR$(86) to 
CHR$(92) 

replace with: 770 IF 
PFL = 1 THEN 
LPRINTCHR$(27); 
CHR$(112); 
CHR$(0):F$ = MEIvl$ 
: POSITION 22.7:? 
F$: POSITION 
22,13:? " " 
remains the same 
replace with: 790 IF 
PFL = OTHEN 
P = 1:LPRINT 
CHR$(27); 
CHR$(112); 
CHR$(1):P0SITI0N 
22,7:? " ": 
MEM$=F$:F$ = " " 
replace with: 800 IF 
PEL = THEN POSI- 
TION 22,13: ? 
P:PFL=1:G0T0 
290 
delete 



Gemini and Star printers have sever- 



change inverse 
GEMSETUP to in- 
verse STRSETUP 
line 1100 change GEMINI to 
STAR 



The Near Letter Quality option 
(Font = N) is only present in the Star 
10/15 printers. 

Type font may be toggled between 
Pica(P), Elite(E), and Near Letter Qual- 
ity (N— Star 10/15.) Option N on Gemi- 
ni produces Condensed print. 

Unidirectional print may be used for 
accurate alignment of vertical and 
horizontal lines. 

If you renumber the program, take 
special care to manually enter new 
values for LINE in the lines currently 
numbered 630, 680, 730, 800, 860, 
910, 960 and 1160 (eight places). 
Without this, the program will not 
return to the correct line if errors are 
found in the error checking subroutine. 

Jackson Beebe is a health-care cen- 
ter director in CInampaign-Urbana, Il- 
linois. He has owned his 800XL (up- 
graded to 256K) since the fall of 1984. 
He teaches Introduction to BASIC at 
Parkland College, and is President of 
the Progressive Atari Computing 
User Group (*PAC*) of Central Illinois. 




le REM «* GEMSETUP *» 9/86 

20 REM Sets Genini printer froM fttari 

38 REM Jackson Beebe/887 N. Hill St/Ur 

bana/Il 11 no i 5/61881 

40 REM IH* INITIALIZE »» 

50 GOSUB 1198 

68 REM ** MAIN MENU ** 

70 ? CHR$ (125) : POKE 7ie,0:PDKE 712, 0:P 

OSITION 4,0;? "i 



GEMSETUP ■iW.UJ.U 



\- 



l"j: 
I"; 
I"; 
I"; 
I"; 



80 ? 
■ I" 
90 ? 

H" 

100 ? ■■ |B|BottoM Margin |";B;" 

POSITION 27.3:? "CO-iej | " 

110 ? •■ iClCondensed |";CS:" 

II I 11 

120 ? " iDlDouble strike |";DS;" 
ii 1 11 

130 ? ■' jEjEMphasized |";E$;" 

II I II 

140 ? ■■ jFlFont l";FS;" 

: POSITION 27,7:? "(P/E/N) I " 

158 ? ■■ jGlPaGe length |"JG;:P0SITI 

ON 25,8:? ■•";: POSITION 27,8:? "(1-127 

) I" 

160^? ■■ iHjHelp I I 

170 ? •' lljltalics |";IS;" |"; 

188 ? ■■ iLlLeft Margin |";L; :POSITI 
ON 25,11:? '■ ■■; :POSITION 27,11:? "(1-2 
55) I" 
190 ? " iNjMini print |"jMS;" j"; 

200 ? " iPlProportional {"^PSiPOSITl 
OH 25,13:? "|"j" ci-6) I" 
210 ? " lOlQuit to BASIC I I 



r 



Hf 220 ? " jRlRight Margin |"jR;:POSITI 
m ON 25,15:? "|":P0SITI0N 27,15:? "(1-25 

«r> 230 ? " ISlSpacing 72nds !"jSS;" I";" 
(1-127) " > ' ' I , 

OP 240 ? " iTjTop line |";T;:positi 
ON 25,17:? "|":POSITION 27,17:? "(1-16 

lujunidir print |"jUS;" |"; 

jMjMide print |";W$;" |"; 

IZjZero slashed |";ZS:" I": 




XU 290 POSITION 2,22:? " COMMAND > 

"; : POSITION 13,22:? " 

";:CLOSE ttl:OPEN «1,4,0,"K:":GET ttl,K 

PK 388 B$=CHR$(K) «.ci «i,R 

DI 318 IF B$="B" OR B$="b" THEN 620 

FX 320 IF (B$="C" OR BS="c") AND C$=" •• J 

HEN LPRINT CHR$ (15) : C$="»" : POSITION 22 

,4:? C$:GOTO 290 
BR 330 IF (B$="C" OR B$="C") AND C$="»" T 

HEN LPRINT CHR$(18):C$= POSITION 22 

,4:? C$:GOTO 298 
AM 348 IF (B$="D" OR BS="d") AND D$=" " T 

HEN LPRINT CHR$ (27) ; CHR$ (71) : D$="K" : PO 

5ITI0H 22.5:? D$:GOTO 298 
PF 350 IF (BS="D" OR B$="d") AND DS="Jt" T 

HEN LPRINT CHRS (27) ; CHRS (72) : DS=" ":P0 

SITION 22.5:? D$:GOTO 290 
EP 360 IF (BS="E" OR B$="e") AND E$=" " T 

HEN LPRINT CHR$ (27) ; CHR$ (69) : E$="W" : PO 

SITION 22.6:? E$:G0T0 290 
HK 370 IF (BS="E" OR B$="e") AND E$="»" T 

HEN LPRINT CHR$ (27) ; CHR$ (70) : E$=" ":P0 

SITION 22.6:? E$:G0T0 290 
HE 380 IF (BS="F" OR B$="f") AND FS="P" T 

HEM LPRINT CHR$ (27) ; CHR$ (66) ; CHR$ (2) : F 

$-"E": POSITION 22,7:? F$ : GOTO 298 
PT 390 IF (B$="F" OR BS="fi AND FS="E" T 



|UNE I988'A,N.A,L,0,G, COMPUTING 



' HEN LPRINT CHR$ C27J J CHRS C66J ; CHR$ C4J : F 

$="N":P05ITI0H 22,7:? F$:GOTO 290 
yV 498 IF CB$="F" OR B$="f") AND F$="N" T 

HEN LPRINT CHR$ (271 ; CHR$ C66] ; CHR$ CU : F 

$="P":P05ITI0N 22,7:? F$:GOTO 290 
PW 410 IF B$="G" OR BS="g" THEN 670 
XD 420 IF B$="H" OR B$="h" THEN 1090 
OM 430 IF (B$="I" OH BS="i"J ftND I$=" " T 

HEN LPRINT CHR$ £27) ; CHR$ C52) : I$ = "«" : PO 

5ITI0N 22.18:? I$:GOTO 298 
CU 448 IF CBS="I" OR B$="i") AND IS="K" T 

HEN LPRINT CHR$ C27) J CHRS I53J : I$=" " : PC 

SITION 22,18:? I$:G0T0 290 
RK 458 IF BS="L" OR B$="l" THEN 728 
MS 460 IF (BS="M" OR BS="M") AND MS=" " T 

HEN LPRINT CHR$ (27} ; CHR$ C83) ; CHR$ (0} : M 

$ = ■■»■■: POSITION 22,12:? M$:GOTO 298 
JZ 478 IF (B$="M" OR B$="M"J AND M$="»" T 

HEN LPRINT CHR$ (271 : CHR$ (841 
VG 480 IF (BS="M" OR BS="M"1 AND MS="»" T 

HEN LPRINT CHR$ (27) ; CHRS (721 : MS=" ":P0 

SITION 22,12:? MS:GOTO 298 
DK 498 IF BS="P" OR BS="p" THEN 778 
lY 508 IF BS="Q" OR BS="q" THEN POSITION 

1,22:? " "MPOSITION 1,2 

l:LPRINT CHR$ (121 : GRAPHICS 8:END 
EF 510 IF B$="R" OR BS="r" THEN 850 
AU 520 IF B$="S" OR BS="S" THEN 908 
ID 530 IF B$="T" OR BS="f ■ THEN 950 
XI 540 IF (B$="U" OR BS="U"1 AND U$=" " T 

HEN LPRINT CHR$ (271 ; CHRS (851 J CHR$ (1) : U 

Sz"»": POSITION 22,18:? US:GOTO 290 
DH 550 IF (B$="U" OR BS="U"1 AND U$="»" T 

HEN LPRINT CHR$ (271 ; CHR$ (851 J CHR$ (01 : U 

$=•• '^POSITION 22,18:? US:G0T0 290 
YM 568 IF (B$="W" OR B$="W"1 AND W$=" " T 

HEN LPRINT CHR$ (271 ; CHRS (871 ; CHR$ (11 : W 

$="»": POSITION 22,19:? W$:GOTO 290 
EW 570 IF (BS="W" OR B$="W"1 AND W$="*" T 

HEN LPRINT CHR$ (271 ; CHRS (87) ; CHRS (01 : W 

$ = •• '^POSITION 22,19:? WS:GOTO 290 
UZ 580 IF (B$="Z" OR BS="Z"1 AND Z$=" " T 

HEN LPRINT CHR$ (271 ; CHRS (861 ; CHR$ (11 : Z 

S="»": POSITION 22,20:? ZS:GOTO 290 
AY 590 IF (B$="Z" OR B$="Z") AND Z$-"*" T 

HEN LPRINT CHR$ (27) ; CHRS (86) ,- CHR$ (0) : Z 

S=" ":POSITION 22,20:? ZS:GOTO 290 
UX 680 GOTO 298: REM MRONG INPUT 
JD 610 REM *Ht BOTTOM MARGIN »» 
IM 620 POSITION 4,22:? "NEW bOttOM Margin 

":POSITION 25,22:INPUT A$ 
AH 630 LINE=620:GOSUB 1018 
OS 648 B=yAL(A$l:IF B<0 OR B>16 THEN GOSU 

B 1070: GOTO 628 
ID 650 LPRINT CHR$ (271 ; CHRS (781 ; CHRS (Bl ; : 

POSITION 22,3:? ■■ ■■;:POSITI0N 22,3:? 

B; :G0T0 290 
HR 660 REM *» PAGE LENGTH ** 
ZM 670 POSITION 4,22:? "NEW page length 

•■:P05ITI0N 25,22:INPUT A$ 
CU 680 LINE=670:GOSUB 1010 
US 690 G=UAL(A$l:IF G<0 OR G>127 THEN GOS 

UB 1O70:GOTO 670 

700 LPRINT CHR$(271;CHRS(671;CHRS(G1 ;P 

OSITION 22,8:? " ■■:POSITION 22,8:? G 

;G0T0 290 

718 REM ** LEFT MARGIN ** 

720 POSITION 4,22:? "NEW left Margin 
":P0SITI0N 25,22:INPUT AS 

730 LINE=720:GOSUB lOlO 

740 L=UAL(A$l:IF L<1 OR L>255 THEN GOS 

UB 1078:GOTO 720 

750 LPRINT CHR$(27);CHRS(77);CHRS(L) :P 

OSITION 22,11:? " ":POSITION 22,11:? 
L:GOTO 298 

760 REM ** PROPORTIONAL »» 

770 IF PFL=1 THEN LPRINT CHR$ (27) ; CHR$ 

(9Q);CHR$(01 :F$=MEMS:P0SITI0N 22,7:? F 

$:P05ITI0N 22,13:? " " 
M 780 IF PFL=1 THEN PFL=8:PS= GOTO 29 


ZE 798 IF PFL=0 THEN POSITION 4,22:? "Let 

ter spacing ":POSITION 25,22: 

INPUT A$ 
;DH 800 LINE=790:GOSUB 1818 

IHS 810 P=UAL(A$l:IF P<1 OR P>6 THEN GOSUB 
I 1070: GOTO 790 

ig:0 820 LPRINT CHRS(271 JCHR$(981 :CHRS(P1 :P 



KE 



AS 
YF 

FU 



DN 
KM 



«— " OSITION 22.7:? " ":MEM$=FS:FS=" " 

PH 838 P$=STR9(P) :POSITION 22,13;? P:PFL= 

l:GOTO 298 
HU 840 REM ** RIGHT MARGIN ** 
SJ 850 POSITION 4,22:? "NEW right Margin 

":POSITION 25,22:INPUT A$ 
Ca 868 LINE=858: GOSUB 1818 
RR 878 R=VAL(A$):IF R<1 OR R>255 THEN GOS 

UB ie70;G0T0 858 
UE 880 LPRINT CHR$ (27) ; CHR$ (81) ; CHR$ (R) : P 

OSITION 22,15:? POSITION 22,15:? 

R:GOTO 298 
YZ 890 REM *« LINE SPACING ** 
HL 900 POSITION 4,22:? "NEW line spacing 

X/72 ":P05ITI0N 25,22:INPUT A$ 
AO 910 LINE=900: GOSUB 1018 
PO 920 S=UAL{AS) :S$=A$:IF S<1 OR S>127 TH 

EN GOSUB 107e:GOTO 908 
FZ 930 LPRINT CHRS (27) ; CHRS (65) ; CHRS (S) : P 

OSITION 22,16:? " ":POSITION 22,16:? 
S$:GOTO 290 
JZ 940 REM «» TOP LINE »» 
PG 950 POSITION 4,22:? "NEW top line 
":POSITION 25,22:INPUT AS 
DB 960 LINE=950: GOSUB 1018 
lY 970 T=UAL(AS):IF T<1 OR T>16 THEN GOSU 

B 1070: GOTO 950 
JUL 980 LPRINT CHRS (27) ; CHRS (82) ; CHRS (T) : P 

■ OSITION 22,17:? POSITION 22,17:? 

n T:GOTO 290 

YX 990 REM « « SUBROUTINES » » 

GC 1080 REM it* CHECK FOR NUMBERS ** 

ID 1818 IF AS="" THEN POP :GOTO LINE 

NW 1828 FOR X=l TO LEN (AS) 

KS 1838 IF ASC(AS(X,X)}<48 OR ASC(AS(X,X) 

)>57 THEN 1958 
MS 1848 NEXT X : RETURN 
ZC 1858 POSITION 4,22:? "» MUSt be nUMbe 

rs * ";:FOR x=l TO 2eo:NEXT X:POP 

t:GOTO LINE 
H 1868 REM *» ERROR MESSAGE »* 
KU 1878 POSITION 4,22:? "» WRONG nUMber 
S » ";:FOR X=l TO 2e0:NEXT X:RET 
URN 
CM 1088 REM »* INSTRUCTIONS «* 
1^1898 PRINT CHRS (1251 ; POKE 7ie.l80:POKE 
WM 712.18e:P0SITI0N 2.0:? 



for GEMSETUP 



:? " Sets up GEMINI printer 

for Atari 8-bit coMputer " 
:? "1. Set paper and turn on p 
":? :? "2. Using BASIC, run GE 



■3. 



Enter coMMands to set t 
Margins, and special 



Re-selecting functions, to 
theM on and off." 
Set Margins last, as th 

with each type size." 
PrograM perforMS a foPM 
Quit, to realign pape 



mr 1188 ? 
11. 9 11 

TT lli8 ? 

rinter. 

M5ETUP." 
TO 1128 ? :? 

he type,": 

functions. 
VZ 1138 ? " 

ggles":? " 
sHC 1148 ? :? "4. 

ey vary":? " 
BT 1158 ? :? "5. 
feed on":? " 

r." 
MD 1168 ? ;? "6. Default right Margin Ma 

y be":? " custoM set at line 1288." 
GL 1178 POSITION 4,23:? " PUSh 

<RETURN> ";:INPUT BS:POKE 718 

,0:POKE 712,8:G0T0 70 
HX 1188 REM H* INITIALIZE ** 
UO 1198 DIM BS(31 
IG 1288 DIM AS(3),CS{1).DS(1),ES(1),FS(1) 

, IS (1) , MS (1) , SS (31 , US (11 , MEMS (11 , PS (11 

,WS(11,ZS(1) 
UU 1218 B=8:G=66:L=l:PFL=0:S=12:T=l 
LN 1228 CS=" ":DS=" ":ES= FS="P":lS=" 

":MS=" ":SS="12":US=" ":W$=" ":ZS=" " 
KD 1238 POKE 195,8:TRAP 1258 
JO 1248 LPRINT CHRS (27) J CHRS (64) 
5U 1258 IF PEEK £195) =138 THEN ? "H": POSIT 

ION 4,ie:P0KE 718,36:? "» » TURN O 

N PRINTER ^ ^" 
TJ 1268 IF PEEK(195)=138 THEN POSITION 4, 

20:? " push <RETURN> to begin 
"; :INPUT BS:RUN 
MV 1278 REM ** DEFAULT RIGHT MARGIN ** 
FR 1288 R=78: LPRINT CHRS (27) ; CHRS (81) ; CHR 

S(R}:REM £ change R for new default ) 
BE 1298 RETURN 



A.N.A.L.O.G. COMPUTING'IUNE 1988 
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■ magine a cold, dark, damp 
dungeon. Here are ten 
prisoners being held by the evil 
giant Egsgard. Your quest? To res- 
cue them^ of course! 



Each captive is being held in a 
separate cell located in one of the rooms 
in the dungeon. The entire crypt con- 
sists of six levels, each level being a six- 
by-six square of rooms (that's 216 
rooms!). While a cell will be in one 
room, the key you need to open it wiU 
be in another. Each lock has its own 
key — no other key will fit. Once you 
have a key, you must try it in every lock 
until you have a match. Being a puny 



Your game is over when you die 
or when you have rescued all of 



the prisoners. 



human, you can only carry one giant 
key at a time; so it'll lake some time be- 
fore you rescue all the prisoners ... if 
you do at all. 



The upper half of the screen shows 
the room you presently occupy. Below 
and to the right of this display is a map 
of the level you're on (the room you're 
in is highlighted). Each position on the 
map represents one room. Tlie symbol 
displayed shows the contents of that 
room (for example, if the map shows a 
monster to the right of the room you're 
in, then the room to your right contains 
a monster). An empty room is displayed 
as a dot on the map. The word empty 
is used loosely, though, for the entire 
dungeon is infested with the enchanted 
boulders of Endorra. These stones ap- 
pear ordinary when observed, but are 
quick to move when not watched. They 
cause you no harm, but can get in your 
way while you travel around the crypt. 
Be careful in your travels because you 
never know what could be in a room — 
even one that was empty before. Mon- 
sters, stars and potions often show up 
in rooms that were empty when you last 
left them. It is wise to watch the map 
when passing through doors so you 
know an instant before you enter a 
room just what you're getting into. 

To the left of the map are the star. 



key, level and saved indicators. You be- 
gin the game with two stars, but you will 
find more in the dungeon. Below this is 
the key Indicator, which merely shows 
a key if you have one. The level read- 
ing tells which floor of the dungeon 
you're on, and the saved indicator tells 
you how many captives you've freed. At 
the bottom left are the score and bonus 
readings. 



Throughout the dungeon are a 
number of monsters, left by the 
giant to guard the prisoners. 
They stay in their own rooms, 
but should you happen upon 
one, it will not hesitate to 



attack you. 



To move from room to room, just run 
through the open door in the desired 
direction (using joystick in PORT O). To 
move from level to level, you must find 



the room on your level which contains 
an arrow pointing in the desired direc- 
tion. This is the teleporter, and it ap- 
pears pointing either up or down. Just 
touch it and you will instantly be sent 
to the next level. Note, however, that 
the transporters are not necessarily 
aligned. When you move to a new lev- 
el, you will likely need to travel a bit to 
get to the opposite arrow in order to 
return. 

Throughout the dungeon are a num- 
ber of monsters, left by the giant to 
guard the prisoners. They stay in their 
own rooms, but should you happen 
upon one, it will not hesitate to attack 
you. If you touch him, you die. Being 
human, you have only one Ufe; so it is 
wise to be careful when dealing with the 
beasts. They can be destroyed using the 
throwing stars and a little hand-eye 
coordination. The stars are thrown us- 
ing the fire button while pointing the 
joystick in the desired direction. There 
are more monsters than stars; so don't 
be too generous with your ammo. 
Remember to watch the number of stars 
you have . . . it's not unusual to get 
killed thinking you have a star when you 
actually have none. 

The crypt also contains a great many 
magic potions which bring about 
changes to your score or bonus level. 
Remember to watch your bonus, for 
when it runs out, you die. 

To pick up any object, maneuver your 
player to touch it. If you can take it, a 
time plays and it is yom-s; otherwise you 
hear a buzzing noise. You may carry 
only one key and seven stars at any one 
time. Magic potions, which can be 
drunk at any time, are taken the same 
way, but they are not carried. 



Exercise great care in your 
adventures, and remember... 
Witch /our imp! 



Once you have a key and have found 
a cell, you must try the key in the lock 
to see if it fits. To do this, stand below 
the lock and push up on the joystick. If 
you have the right key, the cell and the 
key disappear and the prisoner 
teleports out of the dungeon. If you 
have the wrong key or no key at all, you 
hear the buzzer. Your game is over 
when you die or when you have rescued 
all of the prisoners. 

mCRODUNGEON is a simple game 
which can be played by almost anyone, 
yet it takes skill and wisdom to play ef- 
fectively. If you have any suggestions or 
any questions on game-play or 
programming, please write to me c/o 
ANALOG Computing. 

Exercise great care in your adven- 
tures, and remember . . . watch your 
map! 



Jerry Olejarz is 19 and has been 
programming since he was 14. He 
plans to study Computer Sciences at 

Waterloo University in Ontario (accom- 
panied, of course, by his 800XL), and 
is aimed at a career in computer graph- 
ics (such as writing video games!!). 
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listing I: BASIC 



»M5 le REM MICRODUNGEOK 
KZ 11 REM JERRY OLEJARZ 
UI 12 REM FOR ANALOG MAGAZINE 
FT 13 REM APR/86 

JN 14 REM THANX TO 0L5IR,PCS Fiesta 
UH 50 DIM M(216J,RC216),KC1OJ,CC10),RD5C2 
20 J , Z$ t20J , 0$ t9) , B$ C80) , GS C9) , T51$ (24> 
,T52$C20) 
NN 55 G05UB 2100 

LF 100 o$="***444*4*":zS="]]3]]nm]n3] 

]3]n":GM=l:G05UB 2997:P0KE 756, M 
5R 110 PL=0!PY=O:PX=O:CK=-l:CS=2:SX=9!SY= 

3:SC=0:BL=1000:C0=0:AAB=41:C0L0R 130 
YD 120 PLOT 0,0:DRAMT0 19,0:PL0T 0,12:DRfl 

WTO 19,12;DRAWT0 19,19:DRAWT0 0,19:DRA 

WTO 0,12:PL0T 12,12:DRAWT0 12,19 
NE 130 POKE 752,1:? ■■^'■ : RE5T0RE 135 : FOR X 

=1 TO 4:READ GS:P05ITI0N 2,13+X:? tt6:G 

SiNEXT X 
MJ 135 DATA STARS -,H3?],[I3!iai r,saved 

V 
ZL 140 GOSUB 2950:P0SITI0N 5,4:? tt6;"adve 

nturer": POSITION 7,6:? »6;"beware" 
UY 155 FOR P=0 TO 216 : R CPJ =38 : M tP) =93 : NEX 

T P:MCO)=RtO) : GOSUB 2950 
LB 156 RESTORE 180:F0R Xl=l TO 7:READ Ul, 

V2:yo=0:GW=198:IF U2=35 OR g2=36 THEN 

GW=195:IF V2=36 THEN VO = i. 
XE 157 FOR X2=U0 TO Ul : GOSUB GW:RCX)=U2:I 

F g2=37 THEN KCX2J=X 
DF 158 IF U2=33 THEN CCX2)=X 
KU 159 NEXT X2:NEXT XI : GOSUB 2930 
ID 180 DATA 9,39,19,41,9,37,9,33,5,36,4,3 

5,19,42 
CP 190 ? "IS I 

,11., .. 5C0RE |:nM 



WR 



GL 



ICRODUNGEON]]] | 
191 ? ■■ BONUS 
OG MAG] I";? ■' 



N 



1988 

l_ 



ANAL 



l*":G05UB 2990:G0T0 200 



195 X=INTCRNDCe}«36)+36KX2:IF R{X)<>38 
THEN 195 
AH 196 RETURN 
ZP 198 X=INTCRNDC0)»215)+l:IF R(X)<>38 TH 

EN 198 
AQ 199 RETURN 
MA 200 RD$="| 




^Bi ►JiiiiiiiMim 

UP 210 ifpyTe YhYn RD$C30,31)="nn" 

UF 211 IF PX=0 THEN RD$ t84, 84} ="H": RDS CIB 

4,104)="B" 
WW 212 IF PX=5 THEM HDS C97, 97J ="H" : RD$ til 

7,117J="B" 
OB 213 IF PY=5 THEN RD$C189,192J="mm":R 

D$t209,212J="E^ffl" ^^ 

NA 214 PR=36WPL+6KPY+PX:Z=INTCRNDC0]K5} :l 

F Z=0 THEN 216 
LU 215 FOR P=l TO Z : RC=173 : GOSUB 310:NEXT 

P 
KH 216 IF R(PR]<>38 THEN GOSUB 300 
JY 217 IF MCPR]<>RCPR) THEN MCPR3 =R tPRJ : S 

C=SC+2 
EK 220 FOR P=0 TO 5 : POSITION 13,13+P:F0R 

Q=0 TO 5:? tt6;CHR$CMC36«PL+6«P+Q]); :NE 



»«-"HT Q:NEXT P 
QL 221 SOUND 1,200, 10, 10:L0CATE 13+PX,13+ 

PY,Z:C0L0R Z-32:PL0T 13+PX, 13+PY : SOUND 
1,0,0,0 
UN 222 AAA=AAA+l:IF AAA>2 THEN AAA=0 : GOSU 

B 198:AAB=80-AAB:RCX)=AAB 
DB 225 FOR P=0 TO 10:P0SITI0N 0,P+1:? tt6: 

Z$:NEXT P 
VE 226 FOR P=10 TO STEP -1:P0SITI0N 0,P 

+1:? «6;RD$tP»2O+l,P»20+20) :NEXT P 
UQ 227 COLOR PL+17:PL0T 10,16:C0L0R CCK>- 

1)»5:PL0T 10,15:COLOR CS+16:PL0T 10,14 
: GOSUB 2990 
WR 250 COLOR 8:PL0T SX,SY:IF PEEKt77J>e T 

HEN POKE 77,0:BL=BL-l:GOSUB 2990:IF BL 

<1 THEN 500 
QP 255 J=STICKC0} :IF J=15 THEM 270 
DR 260 PSX=SX+CJ=6J+CJ=7J+CJ=5)-CJ=10J-CJ 

= llJ-tJ = 9) 
5L 261 PSY=SY+CJ=9}+tJ=133+CJ=53-CJ=10)-C 

J=14)-tJ=6) :IF STRIG(OJ=0 THEN 370 
MS 262 LOCATE P5X, P5Y, PZ : IF PZ<>32 THEN 3 

50 
FI 265 SOUND 1, 250, 10, 10 : COLOR 32:PL0T SX 

,SY:SX=PSX:SY=PSY:COLOR 8 : PLOT SX,SY:S 

OUND 1,0,0,0 
TL 270 IF R(PR}=41 AND MM>4 THEN 274 
5H 273 MM=MM+l:G0T0 250 
YI 274 MM=0:POX=OX+COX<SX]-(OX>SX) :P0Y=0Y 

+C0Y<5YJ-t0Y>5YJ 
YZ 276 LOCATE POX,POY,W:IF W=8 THEM 480 
MT 277 IF W<>32 THEN 250 
BA 278 COLOR 32:PL0T OX, OY : OX=POX : OY=POY : 

COLOR 41:PL0T OX,OY:GOTO 250 
MD 300 RC=R(PR):IF RC=33 THEN 320 
ZU 310 MM=0:0X=7+INT(RND(0)«6) :0Y=4+INT(R 

NDC0)»5J :P5=COY-lJ»20+OX+i:RD$(PS,PSJ= 

CHR$(RC] :RETURN 
RH 320 RD$tl06,109)="t=;;":RDSll25,129)=" 

C<"t<":RDStl45,148J=",, ! <": RETURN 
B5 350 IF PZ>32 AND PZ<43 THEN GOTO t (PZ» 

10J+70J 
UR 355 WZ=CSX=9 OR 5K=10):IF WZ AND PSY=2 
AND PZ0186 THEM SY=SY + 7 : PY=PY-1 : GOTO 
200 
YX 356 IF WZ AND PSY=H THEM SY=SY-7:PY=P 

Y+l:G0T0 200 
WB 357 IF (SX=16 AND 5Y=6J AMD P5X=17 THE 

N SX=SX-13:PX=PX+l:G0T0 200 
JT 358 IF CSX=3 AND SY=:6) AND PSX=2 THEN - 

SX=SX+13:PX=PK-l:G0T0 200 
PD 360 GOTO 270 
UD 370 IF C5=0 THEN 250 
VI 372 CS=CS-l:COLOR CS+16:PL0T 10,14 
CD 373 T=0:XA=PSK-SX:YAi:PSY-SY:TX=SX:TY=S 

NO 374 LOCATE TX+XA, TY+YA, M: T=T+1 

XE 375 COLOR 32:IF NOT tTX=SX AND TY=SY) 

THEN PLOT TX,TY 
P5 376 IF W<>32 THEM 380 
UF 377 SOUND 0, 10«T, 10, 10 : TX=TX+XA ; TV=TY+ 

YA:COLOR 39:PL0T TX,TY 
LD 378 FOR DD=1 TO 10:NEXT DD:S0UND 0,0,0 

,0:G0T0 374 
B5 380 IF W041 THEN GOSUB 2980 : GOTO 250 
PH 385 PLOT 0X,0V:RCPR)=38:MtPR)=38:C0L0H 
6;PL0T 13+PX, 13+PY: COLOR 0:GOSUB 2970 
:SC=SC+100:G0SUB 2990:G0T0 250 
HS 400 P=-l:IF CK<0 THEN GOSUB 2980:G0T0 

250 
JT 404 P=P+1:IF CCPJrPR THEM 408 
PB 406 GOTO 404 
SM 408 IF CKOP THEN GOSUB 2980:G0T0 250 

BK 410 RD$C106,109)= RD$ C125, 129J =■■ 

■ ":RD|C145,148)= POSITION 5, 

6:? »6;RDStl06,148J 
QV 412 CK=-l:RCPRJ=38:MCPRJ=38:C0L0R 6 : PL 

OT 13+PX, 13+PV:C0L0H 0:PLOT 10,15:G0SU 

B 2970 
IT 414 W=CHSET+112:F0H P=7 TO STEP -1 : P 

OKE W+P,0:SOUND 1,30»P,1O,2«P:SOUND O, 
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"""' 15»p,10,p:for q=i to 2B:NEXT Q:NEXT p 

BK 416 COLOR 32 : PLOT 6,7:F0R P=0 TO 7:P0K 
E W+P,PEEK{W-48+PJ :NEXT P : 5C=SC+20e : GO 
SUB 2996:C0=C0+l:IF 00=19 THEN 508 

MV 417 COLOR C0+16:PL0T 10,17 

OM 418 GOTO 250 

KM 420 PL=PL+1 

fta 424 5X=9:5Y=3:I=10»CPZ-35.5) :FOR P=150 
»CI<0) TO 150»tl>8) STEP I : SOUND 0,P,1 
0,ie:NEXT P:SOUND 0,e,0,e:GDTO 200 

MB 430 PL=PL-l:GOTO 424 

UK 440 P=-l:IF CK>-1 THEM G05UB 2988:G0T0 
250 

5R 444 P=P+l:IF KCPJ=PR THEN 448 

RB 446 GOTO 444 

SG 448 CK=P:C0L0R 5:PL0T 10,15 

KM 450 M(PR)=38:RCPRJ=38!SC=SC+50:GOSUB 2 
990:COLOR 32:PL0T OX,OY:COL0R 6:PL0T 1 
3+PX,13+PY:G05UB 2970 : GOTO 250 

AC 460 IF CS>6 THEN GOSUB 2980:GOTO 250 

PB 464 CS=C5+l:C0L0R CS+16 : PLOT 10,14:GOT 
450 

EU 480 GOSUB 2980:GOTO 508 

BN 490 Z=INT(RND(0)»101 

SO 491 IF Z<3 THEM SC=SC-INT CRND t0J»50) ! G 
OTO 450 

00 492 IF Z>3 AND Z<7 THEM Z=5»SGN tZ-5) : S 
C=5C-50:BL=INTtCZ-2)»BL/CZ-3J J : GOTO 45 

HP 494 5C=SC-C50+IMTCRNDC0)«50JJ :IF 5C<-5 

e THEN SC=-50 
PK 495 GOTO 450 
HA 500 FOR P=0 TO 17:P05ITI0M 0,P+1;? «6; 

Z$:NEXT P 
KF 520 IF CO<10 THEN 530 
GB 522 BL=BL-5:SC=SC+5! GOSUB 2990: SOUND 

,BL/4,18,2:IF BL<5 AND BL>0 THEN SC=SC 

+BL-5:BL=5:G0T0 522 
UG 523 IF BL>0 THEM 522 
FI 525 POSITION 2,3;? tt6! 

■':POSITION 3,5:? MR ; "F>TiTT»--4i[j<jj:[j|" : bU 

TO 540 
TR 530 POSITION 3,3:? «6j 

:POSITION 2,5:? «6;"tr 



congratulations 



!/our quest has 
ended in failure^ 



UP 540 POSITION 8,9:? tt6; "gaMe": POSITION 

8,10:? tt6j"ower" 
UP 542 POSITION 2,14:? tt6;"y 

J33": POSITION 4,16:? «6;"C 
VM 558 ? ■' SCORE "jSC:? " 

II ■ 

BD 580 IF PEEKt53279J=7 AMD STRIGtOJrl TH 

EN GOSUB 2950:GOTO 580 
HC 590 GOTO 100 
ZJ 2100 M=PEEKC106J-8:P0KE 106, M-1 : CHSET= 

MH256:GM=0: GOSUB 2997: GOSUB 2200 
IM 2102 RESTORE 2110 ^ „..„^ 

FO 2105 FOR P=l TO 32:READ K : BS tP, PJ =CHRS 

(X3 :NEXT P 
ER 2110 DATA 104,104,133,213,104,133,212 
NU 2112 DATA 104,133,215,104,133,214,162 
JM 2114 DATA 4,160,0,177,212,145,214 
PE 2116 DATA 200,208,249,230,213,230,215 
SG 2118 DATA 202,208,248,96 
QF 2128 Z=U5RtADR(BSJ, 224*256, CH5ETJ 
HH 2138 POKE M-1, 8 : RESTORE 2158 
QX 2135 READ C:IF OB THEN FOR Q=8 TO 7:R 

EAD A: POKE ICHSET+C»8+QJ,A:NEXT Q:GOTO 
2135 
HE 2140 GOSUB 2250 : RETURN 
FB 2158 DATA 2,255,129,189,165,165,189,12 

9,255 
EY 2151 DATA 5,28,28,28,8,8,24,8,24 
HL 2152 DATA 9,62,127,73,91,127,127,127,8 

5 
SW 2154 DATA 8,24,24,68,90,24,36,36,36 
MK 2156 DATA 7,0,8,16,92,58,8,16,8 
AZ 2158 DATA 26,255,255,255,255,255,255,2 

55,255 
DX 2160 DATA 27,254,252,250,246,238,222,1 

90,126 
isOU 2162 DATA 28,254,252,248,240,224,192,1 



"" 28,0 

KY 2164 DATA 29,127,127,127,127,127,127,1 

27,127 
ML 2166 DATA 30,127,63,95,111,119,123,125 

,126 
UN 2168 DATA 31,127,63,31,15,7,3,1,8 
HT 2178 DATA 12,8,255,255,255,255,255,255 

,255 
LD 2172 DATA 11,255,128,176,176,168,168,1 

28,128 
HF 2174 DATA 15,255,1,13,13,5,5,1,1 
IV 2176 DATA 59,8,1,3,7,15,31,63,127 
UM 2178 DATA 60,0,128,192,224,240,248,252 

,254 
GM 2180 DATA 61,170,85,170,85,178,85,178, 

85 
DG 2182 DATA 6,8,8,8,24,24,8,8,8 
GZ 2184 DATA 3,8,8,28,62,8,8,8,8 
HQ 2186 DATA 4,8,8,8,8,62,28,8,8 
KM 2188 DATA 1,28,54,34,127,119,119,62,8 
HD 2198 DATA 14,24,24,68,98,24,36,36,36 
KJ 2192 DATA 18,8,8,8,8,28,54,54,28 
NF 2194 DATA 13,8,8,14,63,127,253,243,126 
LJ 2199 DATA 8 
OL 2288 Z=PEEK C560)+256»PEEK 1561) : POKE Z+ 

3,66:P0KE Z+11,7:P0KE Z+12,6 
GB 2210 POKE Z+23,6:P0KE Z+24,6:P0KE Z+25 

,6:P0KE Z+26,65:P0KE Z+27, PEEK C568J ; PO 

KE Z+28,PEEKC561J 
RK 2215 COLOR ASC f'_"J : PLOT 8,5:DRAMT0 31 

,5:PL0T 8,8:DRAHT0 32,8 
QP 2228 RESTORE 2225:F0R Z=l TO 6:READ X, 

Y,TS1S: POSITION K,Y:? TSlS;:NEXT Z 
RO 2225 DATA 12 , 2, ANALOG CO MPUTING, 16, 3, p 

resents,4,6,[*B3a!QninXnil2,7,By Jerry 

UH 2227''dATA 8, 13, INITIALIZING EVERYTHING 

-, 13, 14, PLEASE WAIT . . . 
AN 2230 RETURN 
OT 2250 T5lS=" HIT fire BUTTON TO ":TS2$= 

■• START THE GAME 
IT 2252 COLOR 32:PL0T 8,13:DRAMT0 31,13!P 

LOT 26,14:DRAWT0 13,14:P0KE 756, M 
PV 2255 FOR X=0 TO 19 : POSITION 19-X,17:? 

TSl$tl,X+lJ :P0SITI0N 8,18:? TS2$C20-X, 

20): IF 5TRIGC0)=0 THEN RETURN 
OK 2257 SOUND O, 10»X, 8, 4 : SOUND I,10»tl9-X 

],8,4:NEXT X:KA=-2:K=8 
YT 2260 IF STRIGtO)=0 THEN RETURN 
MA 2265 K=K+KA:IF K<3 OR K>15 THEN KA=-KA 

:C=INTtRNDC0)»16J :GOSUB 2950:G0T0 2265 
KR 2267 SETCOLOR 3,C,K:IF STRIGC0)=0 THEN 
RETURN 

TA 2268 GOTO 2260 

UK 2900 REM ECEQlEIIIIE 

HN 2930 FOR P=0 TO 3:S0UMD P,0,0,O;NEXT P 

■ RETURN 
QY 2950 FOR P=0 TO 2:REST0RE 2955 : Z=INT CR 

ND(0}«7):F0R Q=l TO Z:READ G:MEXT Q : RE 

AD M 
NN 2952 SOUND P, M, 18, 1 : NEXT P:RETURN 
SG 2955 DATA 243,193,162,121,96,81,60,47, 

40 
EM 2968 GOSUB 198 : AAB=88-AAB : R (X) =AAB : RET 

URN 
FB 2978 RESTORE 2975: FOR P=8 TO 8: READ N: 

SOUND 8,N,18,8:F0R Q=l TO 9 : NEXT Q : NEX 

T P:RETURM 
RX 2975 DATA 251,217,193,162,162,193,162, 

162,8 
IT 2980 FOR W=15 TO STEP -1:S0UND 0,255 

-10*V, 10, W: SOUND 1,255-10»U,8,V/2:NEXT 
U:RETURN 
LZ 2990 ? 0S;SC;" ■■:? 0S;BL;" •■:? ■■*":RET 

URN 
RC 2997 GRAPHICS GM:IF GMOl THEN SETCOLO 

R 2,8,8:G0T0 2999 
LL 2998 SETCOLOR 2,8,4 
TP 2999 SETCOLOR 1, 4, 14 : SETCOLOR 3,12,8;S 

ETCOLOR 8,8,6:P0KE 82,8:P0KE 752,1:? " 

IS": RETURN 
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es, Atari fans, yet 
another accessory 
for the famous ANALOG Create-A- 
Font (Issue 22). This utihty will al- 
low you to move characters or blocks 
of characters between fonts, without 
resorting to the tedious task of 
recreating each character every- 
where you wish to use it. And it'll 
work not only with Create-A-Font, 
but with any other font editor that 
saves its data in the conventional way. 



l_Jsii 



^t— ^r-in 
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Type in the program using Basic Edi- 
tor II, then save it. Once you're up and 
running you'd better have a disk full of 
fonts ready to roll. 

When you run the program, you will 
be asked for the filename of your Base 
Font. This is the font you wish to modi- 
fy. If you want to start fresh, press 
RETURN and the standard Atari font 
will be used. If you need to see the disk's 
directory, press D. 

Next, you can press T to load a Trans- 
fer Font (the font you'll be moving 
characters from). AU transfers will be 
from the Transfer Font to the Base Font. 

Briefly, the function menu is as 
follows. . . 

Gr.1,2 — toggles between full 
and half font saves. 

Base Font — allows you to 
view the base font at any time. 

Save — asks for filename, 
then saves thie Base Font to 
disk. 

Dir — lists the directory of 

JUNE l9y'A,N,A.L,0,G, COMPUTING 



drive one. 

Transfer — starts the transfer 
sequence. First you ciioose be- 
tween a block transfer or seg- 
ment transfer A block transfer 
moves complete rows of cfiarac- 
ters (full block) or tialf rows (hialf 
blocks). Full or half blocks can 
be transferred to any other full 
or half block positions. Segment 
transfer is for moving other than 
full or half blocks. To choose a 
segment, use the up and down 
arrows to select the main row to 
transfer from, and then, using 
the left and right arrows, position 
the left pointer to the leftmost 
end of the segment and the 
right pointer to the rightmost 
end. Note that the segment 
transferred is between the 
pointers only Hit RETURN and 
choose the segment of the Base 
Font to move to. Press RETURN 
again, and the transfer will take 
place. 

Load new — will load a new 
Transfer or Base Font. Files can 
be loaded from multiple disk 
drives, but if you don't specify 
a device name, D1: is assumed 
(the same with Save). You can 
escape a load or save (in case 
you change your mind or want 
to look at the directory) by hit- 
ting RETURN at the prompt. 

Clear — will load the stan- 
dard Atari font into either the 
Transfer or Base Fonts. 

Quit — returns you to BASIC 

r — 1 <z> cd i -f i <r: ^-t i <=> n s 

There's some room at the bottom of 
the fmiction menu for any added fea- 
tures you might want to include for your 
own purposes. The program is laid out 
very simply, and modifications should 
be easy to add since the main section 
just uses GOSUBs to access a variety of 
small routines. Here are a few sugges- 
tions to help customize Character Trans- 
fer Utility to your own needs. 

If you have BASIC XL/XE, the font 
loading and saving can be sped up 
tremendously by using 

530 OPEN #2,4,0,FILE$:BGET 

#2,CHB,1024: CLOSE #2: 

RETURN 

in place of lines 530 and 540 to 

load a font, and 560 OPEN 

#2,8,0,FILE$:BPUT #2,NCB1,SV; 

CLOSE #2:RETURN 

in place of lines 560 and 570 to 

save a font. A POKE 54286,64 

before will turn the screen a solid 

color (eliminate the flashing), and 
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a POKE 54286,192 after will re- 
store the display to normal. 

In the Transfer routine, the seg- 
ment pointers can be made to 
remain in their last positions be- 
tween transfers (they are reset to 
the ends normally) by deleting 
the HP1=3 and HP2=36 in line 
1870. 

The Directory function, as is, 
lists all programs on the disk. All 
my fonts have the filename ex- 
tender .FNT If you keep track of 
your files using this method, the 



"D:*.*" at line 2220 can be 
changed to "D:*.FNT" to list only 
the font files. 



Jim V. Bowles has an Associate In 

Science Degree and repairs video 
cameras and camcorders by day. In the 
evening he likes to adventure, destroy 
aliens, program his Atari, telecommuni-' 
cate or read ANALOG. He has had his 
800 XL for four years and his 130 XE 
for 272 years, and still thinks it's the best 
deal he ever got. 
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BG le REM CHRXFR.BAS — ANALOG COMPUTING 
GT 29 DIM FILE$C15J,FNStl5),D$C2J,BSt4J,T 

$ C8J , NA$ (8) , DR$ C171 , NL$ C2e) 
HE 38 DIM BLC4) 

HG 48 DS="D:":B$="Base"!T$="Transfer" 
NK 58 VP=8lBLCe)=512:BLCll=e:BLC2}=256:BL 

C3)=768:SU=1823 
MY 68 SEG=8:HPl=3:HP2=36:STJ.=e:ST2=8:BLKl 

=8 : BLK2=8 : STAD1=8 : STAD2=8 : ADU=8 : LN=8 
MV 78 L=8:R=8:CHB=8:HP3=2:UP2=17:CH=8:C=e 

!PIT=8:S=e 

CX 88 RT=PEEKCie6J:NCl=RT-8:HC2=RT-12!NCB 

1=NC1»25C ; NCB2=NC2K256 
RN 98 POKE 284,NCl:P0KE 286,224 
"0 ^88.F0R^Z=A TO 28 : READ A : MLS CZ, Z) =CHR$ 

^" ii^'SS^ft 104,162,4,168,8,177,285,145,2 
83,288,288,249,238,286,238,284,282,208 
,242,96 

TA 128 ? "H":POKE 559, 8: POKE 752,1: POKE 7 

18,88 
DE 138 POKE 1824,NC2:REM SET AT XFR FONT 
EB 148 FOR Z=e TO 288 
SQ 158 READ A 
JG 168 IF A=-l THEN 190 
BE 178 POKE 1536+Z,A 
MW 188 NEXT Z 

EJ 198 DLSTART=PEEKt568J+PEEKC561)»256 

UJ 288 POKE DLSTART*8,13e 

HU 218 POKE DL5TART+11,138 

MG 228 POKE DLSTART+17, 138 

10 238 POKE DL5TART+21,138 

LQ 248 POKE DL5TART+25, 138 

EE 258 FOR Z=e TO 288 

ST 268 READ A 

EE 278 IF A=-l THEN 388 

BA 288 POKE 1688+Z,A 

MY 298 NEXT Z 

BD 386 Q=USRC1688} 

OH 318 POKE 54286,192 

PD 328 DATA 72,169,6,141,18,212,141,24,28 

GC 338 DATA 8,141,23,288,169,26,141,8,2,1 

¥S Ut RSJ5 6,141,1,2,184,64,72,173,8,4 
35|^">ftTA 141,18,212,141,9,212,169,8,14 

NZ 368 DATA 288,169,18,141,23,288,169,58, 
J.41, B 

!t Ul K5I5 2,169,6,141,1,2,184,64,72,169 

" ?!2 ^^T'* 224,141,18,212,141,9,212,169, 
J-4*, 141 

'^'- 11^,5?^'* 24,288,169,18,141,23,288,169, 
o7 , 141 

SJ 488 DATA 8,2,169,6,141,1,2,184,64 72 
KI ^la^^gTA 169;i64;iil,l6,mtl4i:24riB8 

FL 428 DATA 141,23,288,169,115,141,8,2,16 

YI 438 DATA 141,1,2,184,64,72,169,88,141, 

"° 288, lel" 212,141,24,288,169,18,141,23, 

CH 458'dATA 64,-1 

BM 468 DATA 184,168,176,162,6,169.7,32 92 

5^ 112 R5I'* 228;96,8,8,e,8,e:e,e:8 ' '^ 

KS 488 DATA 8,8,8,8,8,8,8,8,8,8 



LU 498 DATA 8,8,8,169,8,141,8,2,169,6 
FN 588 DATA 141,1,2,76,98,228,-1 
NE 518 GOTO 1888 '^°>^^o. 

"° ^28 C=INT C 148- C14+LEN CFILESJ J ) /2J : G05U 
LeI-'SS"^""" ^'^^'■'^ '■** Getting "Jfi 
ZR 538'pOKE 54286, 64:0PEN tt2, 4, 8, FILES : PO 
*x KE 54286, 192:F0R Z=CHB TO CHb4i823 

2?RETURN**^''^""'°'^^ Z,CH:NEXT Z: CLOSE tt 

'"'' 552„CrlNTCt48-C13+LENCFILESjn/2) :POSI 
TION C,18:? ••** Saving "; FILES:" iw 

"^ ^I^.^SSf 54286, 64: OPEN »2, 8, 8, FILES : PO 
KE 54286, 192:F0R Z=NCB1 TO NCBl+SU 

^^ !^2. K^I »2,PEEKtZ):NEXT Z : POKE 54286,6 
TURN *»2:P0KE 54286, 192 :G05UB 638:RE 

''T ||8g«^V=0||TftDl=NCBl+BLKl+STl : STAD2=NC 

PA 598 FOR Z=STAD2 TO STAD2+LN 

tI lit Th^ |Tg^lJgDV,PEEKCZ,:AD..ADU.l 

" fcLofk^lfi^ilS^S" «^'*'«'"'« = "'«=" «1,K 

LP 638 FOR BL=17 TO 18:P0SITI0N 4,BL:? ■> 

" ■ MFMT 
BL: RETURN 
HN 648 FOR BL=19 TO 28: POSITION 4,BL:? " 

" ' MFUT 
BL: RETURN 

FZ 658 POSITION 1,UP:? RETURN 

GZ 668 POSITION l,gp:? UP-7; CHRS C127J :RET 

IB 678 POSITION HP1,7:? CHRS C255J : POSITIO 

N HP1,12:? CHRS C255): RETURN 
"•^ S^S^K"^^^^^*' HP2,7:? CHRS 1254 J: POSITIO 

N HP2,12:? CHRS C254} : RETURN 

" !I?/""TSe?URH^'^'- POSITION HPl, 

" ilK^-^iSETURS^'^'- POSITION HP2, 

HU 718IF UP=8 AND K=45 THEN GOSUB 658:gp 

=ll:GOSUB 668:RETURN 
CJ 728 IF VP=11 AND K=61 THEN GOSUB 658 : U 

P=8: GOSUB 668: RETURN 
NH 738 IF K=61 THEN GOSUB 658: UP=UP+1: COS 

UB 668:RETURN 
OU 748 IF K=45 THEN GOSUB 658 : VP=WP-1: GOS 

UB 668:RETURN 
ZN 758 RETURN 

F5 768 IF K=76 THEN L=l : R=8 : RETURN 
EH lift V •^=®2 THEN R=l:L=8: RETURN 

TURN *^~*^ ^*"* ""^ ***"* "P2=36 THEN RE 
•<M 798 IF K=43 AND L=l AND HP1=3 THEN RET 
OQ 888 IF K=42 AND L=l AND HP1=HP2-1 THEN 
SL 818 IF K=43 AND R=l AND HP2=HP1+1 THEN 

DC 828 IF K=43 AND R=l THEN GOSUB 7e8:HP2 

=HP2-1: GOSUB 688: RETURN 
^'- ®22»?f '^=*2 AND R=l THEN GOSUB 788:HP2 

=HP2+l: GOSUB 688: RETURN 

" ®i2.I'' '^=*^ '*'"> "-=1 THEN GOSUB 698: HPl 

=HPl-l: GOSUB 678: RETURN 
AT 858 IF K=42 AND L=l THEN GOSUB 698 : HPl 
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=HPl+l:GOSUB 670: RETURN 
ZQ 866 RETURN 

UK 879 IF K=43 AND HPlrJ THEN RETURN 
UO 889 IF K=42 ftND HP2=36 THEN RETURN 
YC 899 IF K=43 THEN G05UB 699:G05UB 799:H 

Pl=HPl-l:HP2=HP2-l:G0SUB 679:G0SUB 680 

■ pEXURN 
PI 900 IF K=42 THEN GOSUB 690:GO5UB 709 !H 

Pl=HPl+l!HP2=HP2+l:G05UB 670: GOSUB 680 

; RETURN 
ZH 910 RETURN 

ZM 920 PIT=30:FOR 5=4 TO 14 STEP 2 
MG 930 SOUND 0, PIT, 10, S : SOUND 1,PIT+10,10 

DM 949 PIT=PIT-5:NEKT S:SOUND e,0,0,0:SOU 

ND 1,0,0,O:RETURN 
BZ 950 POSITION 12,20:? "» Hit any Key »" 

: GOSUB 620: RETURN 
JT 960 GOSUB 630:POSITION 10,18:? "Select 

TU 970*POSITIOH"il,29:? "Use ";CHRSC28);C 
HRSC29J;" Then RETURN": RETURN 

DQ 980 POSITION 6,17:? "Enter "jNftS;" Fon 
t File Nawe": POSITION 6,18:? "Here..." 
;: INPUT FNS: RETURN ^ ^ ^„ 

BB 990 IF FN$C2,2)= OR FNSC3,3J= TH 

EN FILE$=FH$:RETURN 

Tft 1000 FILES=D$:FILE$t3J=FNS:RETURN 

XU 1010 IF 5y=1023 THEN sy=511 ! POSITION 7 
,22:? "Half":RETURN ^„ ^ 

IT i020 IF SU=511 THEN SV=1023 1 POSITION 7 
22!? "FU11":RETURN 

XA 1030 CLOSE n2!PQKE 54286. 192 : GOSUB 63 

:P0SITI0N 9,18:? "— irTTi^;MMa'iirmllll 

":GOSUB 950 
KD 1640 POKE 766,1:G0SUB 630:GOSUB 640:RE 

TURN 
FL 1050 GOSUB 1030:POKE 766,0:GOTO 1239 
FQ 1060 GOSUB 1O30:POKE 766,0:GOTO 1650 
AB 1070 GOSUB 1030:GOTO 1290 „. „„„ ^ 
DP 1080 POSITION 4,1:? "CHARACTER BLOCK T 

RANSFER UTILITY" 
HM 1090 POSITION 13,3:? "Function Menu" 
CO 1100 POSITION 3,4:? "0R.1,2 EASE F 

nuT Ei^AUE HIR" 
go 1110 POSITION 3,5:? "DRANSFER fflOAD N 

EM BLEAR BUIT" 
KE 1120 POSITION 15,16:? "Messages.." 
YS 1130 POKE 766,l:H=4:U=8:F0R Z=0 TO 127 
ZN 1140 IF H>35 THEN H=4:U=V+1 
ME 1150 POSITION H,U:? CHR$ CZ) ! H=H+1 ! NEXT 

Z:POKE 766,0 ^ ^ 

JH 1160 POSITION 6,17:? "Do you Wish to s 

tart with a" , , , i^ * 

MG 1170 POSITION 2,22:? "Save=Full Font 

CCI1988 A.N.A.L.O.G" 
QM 1180 POKE 204, NC2: POKE 206,224 
KZ 1199 Q=USRCADRCMLSJJ 
YT 1200 l»OSITI0N 6,18:? "base font?": POKE 

559, 34: GOSUB 620 
YT 1210 GOSUB 639 
AY 1229 IF K<>89 THEN 1269 
PF 1239 TRAP 1959: NA$=B$ : GOSUB 989 
AI 1249 IF FNS="" THEN 1260 
AB 1259 GOSUB 990: CHB=NCB1 : GOSUB 520:GOSU 

B 920: GOTO 1280 
QB 1260 POKE 294,NCl:P0KE 206,224 
KU 1270 QzUSRCADRCMLS]} 
NX 1288 GOSUB 639:P0KE 1924, NC2 : POSITION 

13.13:? "transfer font":POKE 766,1 
UN 1299 POSITION 6,18:? " Please Select 

Function ":GOSUB 620 
ET 1300 IF K=66 THEN 1889 



Qirst Half or 



VG 1319 IF K=84 THEN 1499 

AN 1329 IF K=76 THEN 1919 

VX 1339 IF K=83 THEN 2949 

BB 1349 IF K=67 THEN 2999 

ES 1359 IF K=71 THEN GOSUB 1919: GOTO 1290 

EU 1369 IF K=81 THEN GRAPHICS 9: END 

XT 1379 IF K=68 THEN 2229 

FB 1389 IF K=81 THEN GRAPHICS 9 : END 

TG 1399 GOTO 1299 

SK 1499 GOSUB 669:P0SITI0N 6,13:? "frOM. . 

II 
YM 1419 GOSUB 639: POSITION 11,18:? "0LOCK 

or SEGMENT": GOSUB 629 
ZE 1429 IF K=83 THEN SEG=1: GOSUB 670:G0SU 

B 689:G0T0 1450 
FC 1430 IF K=66 THEN SEG=0 : GOTO 1459 
PR 1449 GOTO 1419 
CG 1459 GOSUB 969 
YZ 1460 GOSUB 620 
MU 1470 GOSUB 710 : BLK2=BLCUP-8} 
EK 1480 IF K=155 AND SEG=1 THEN 1590 
TU 1490 IF K=155 AND SEG=0 THEN 1510 
RU 1509 GOTO 1469 _ , ^ 

EK 1519 GOSUB 649: POSITION 6,18:? " Half 

Block or Qull Block ":GOSUB 629 
YZ 1529 IF K=72 THEN 1559 
lU 1539 IF K=79 THEN ST2=0 : LN=255 : GOTO 16 

60 
QF 1549 GOTO 1519 
MH 1550 POSITION 6,18:? 

Second Half ": GOSUB 620 
HA 1569 IF K=79 THEN ST2=0 : LN=127 : GOTO 16 

69 
PA 1579 IF K=83 THEN ST2=128 : LN=ST2-1 : GOT 

1668 
SR 1589 GOTO 1550 
XJ 1599 GOSUB 639: GOSUB 649: POSITION 6,17 

:? "Choose Heft or Qight pointer" 
ER 1600 POSITION 9,19:? "Use ";CHRSC30J;C 

HRSt3lJ;" Then Hit RETURH":L=1 
YO 1610 GOSUB 620 
CZ 1620 IF K=155 AND CHP2- CHPl+lJ J =0 THEN 

GOSUB 630:GOSUB 640:GOTO 1290 
JM 1639 IF K=155 THEN L=l :R=9 : ST2= CHP1-3J 

»8 : LN= C CHP2- CHP1+1> J»8 J -1 : GOTO 1660 
BJ 1640 GOSUB 760 
QN 1650 GOTO 1610 
TT 1660 POKE 1024, NCI :POSITION 6,13:? "to 

base font " 

ZN 1670 GOSUB 630: GOSUB 640: GOSUB 960 

ZJ 1680 GOSUB 620 

MM 1690 GOSUB 710 : BLK1=BL CUP-8J 

XU 1700 IF K=155 AND SEG=0 THEN 1730 

EZ 1710 IF K=155 AND SEG=1 THEN 1780 

UC 1720 GOTO 1680 

JR 1730 IF LH=255 THEN ST1=0:G0T0 1840 

MI 1740 POSITION 6,18:? " Qirst Half or 

Second Half ":GOSUB 620 
AN 1750 IF K=70 THEN ST1=0:GOTO 1840 
UC 1760 IF K=83 THEN ST1=128:G0T0 1840 
TD 1770 GOTO 1740 
TJ 1780 POSITION 10,18:? "Mowe Segnent wi 

th ";CHRSt30J;CHR$C31) 
UB 1790 GOSUB 640:P0SITI0N 12,20:? "Then 

Hit RETURN" 
YP 1800 GOSUB 620 ^^^ ,^„, ^^ 

CM 1810 IF K=155 THEN L=0 !R=0 : ST1= CHPl-3) 

«8:G0T0 1840 
CG 1820 GOSUB 870 
RF 1830 GOTO 1880 
BP 1840 GOSUB 580 
IL 1850 GOSUB 630: GOSUB 640: POSITION 11,1 
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.":G05UB 95e:G0 



8:? "TRANSFER COMPLETE. 

5UB 648 
LK 1868 G05UB 6?e:G05UB 780: POSITION l.UP 

:? " '^POSITION 6,13;? '• 
ZF 1878 HP1=3:HP2=36:P0KE 1824, NC2 : POSITI 

ON 13,13:? "transfer font":GOTO 1298 
Yft 1888 POKE 1824, NCI : POSITION 13,13:? " 
base font ": POSITION 6,18:? "This is 
your new BASE FONT.." 
CN 1890 GOSUB 950 
DC 1988 GOSUB 648 : POKE 1824, NC2 : POSITION 

13,13:? "transfer font": GOTO 1298 
HU 1918 POKE 766, 8: POSITION 8,18:? "[T]ase 

Font or Qransfer Font" 
VK 1928 GOSUB 628 

VV 1938 IF K=66 THEN GOSUB 638: GOTO 1968 
CT 1948 IF K=&4 THEN GOSUB 638 : GOTO 2888 
SZ 1958 GOTO 1928 

RC 1968 TRAP 1878 : NA$=B$ : GOSUB 988 
UZ 1978 IF FN$="" THEN GOSUB 638 : GOSUB 64 

8: POKE 766,1: GOTO 1298 
XZ 1988 GOSUB 990 : CHB=NCB1 : GOSUB 528:G0SU 

B 928 
JN 1998 POKE 766,1; GOSUB 638: GOTO 1298 
DP 2888 TRAP 1878 : NA$=T$ : GOSUB 988 
UQ 2818 IF FN$="" THEN GOSUB 638: GOSUB 64 

8: POKE 766,1: GOTO 1290 
XN 2828 GOSUB 998 : CHB=NCB2 : GOSUB 528:G0SU 

B 928 
IE 2838 POKE 766,l:G0SUB 638:G0T0 1298 
OV 2048 POKE 766,8:G0SUB 638:P0SITI0N 6,1 

7t? "Enter NEM FONT File NaMe":P0SITI0 

N 6,18:? "Here. ."; :INPUT FNS 
WC 2858 IF FN$="" THEN GOSUB 638: GOSUB 64 

e:POKE 766,1: GOTO 1298 



FX 2868 GOSUB 99e:G0SUB 63e:G0SUB 558 : GOS 

UB 928 
EB 2878 POSITION 12,18:? "Save Conplete.. 

":GOSUB 958 K^tritr. 

GX 2888 POKE 766,1:G0SUB 638:G0SUB 648:60 

TO 1290 
FK 2098 POSITION 8,18:? "Base Font or Qra 

nsfer Font" 
YC 2100 GOSUB 628 

lU 2118 IF K=66 THEN GOSUB 630: GOTO 2148 
PT 2128 IF K=84 THEN GOSUB 638: GOTO 2198 
NX 2138 GOTO 2188 
GV 2140 POSITION 9,17:? "Your BASE FONT i 

S__noW: POSITION 12,18:? "ATARI STANDAR 

PX 2150 POKE 284, NCI : POKE 286,224 

KR 2168 Q=USR(ADRCML$]) 

RU 2170 GOSUB 958 

VX 2180 GOSUB 638:G0SUB 648:G0T0 1290 

RA 2198 POKE 204, NC2: POKE 286,224 

KB 2288 Q=USRCA[>RCML$J] 

SH 2218 GOTO 1298 

MJ 2220 GOSUB 638: POKE 54286, 64 : OPEN »2,6 

DA 2238 INPUT tt2,DR$ 

SM 2248 IF VP2>19 AND HP3=19 THEN HP3=2 : U 

P2=17:P0KE 54286, 192:G0SUB 958:G0SUB 6 

30:GOSUB 640:P0KE 54286,64 
5£ H!® ^^ UP2>19 THEN HP3=19:UP2=17 
PM 2268 IF DRSC5,8J="FREE" THEN 2298 
QH 2278 POSITION HP3,UP2:? DR$: gP2=VP2+l 
ON 2288 GOTO 2230 
DY 2298 CLOSE 02 : POKE 54286, 192 : POSITION 

HP3+2,UP2!? DR$: GOSUB 958: GOSUB 630: GO 

SUB 640 :HP3=2:UP2rl7: GOTO 1298 
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STORE HOURS 
TUE - FRI 10am - 6pm 

SAT - 10am - 5pm 
CLOSED SUN - MON 



SUFFER SF^EC: ZjS.I^S 

.„ K . . K . . RECONDITIONED ATARI MERCHANDISE 

All merchandise has been tested and reconditioned and is in like-new condition except where noted by the letter "B" after the price The "B" price indicates 
product may have scratches or other superficial surface marks. 30 day warranty. nc price, ine n price indicates 



ATARI 

TRAKBALL 

$9.95 A 

SPICE UP THE 
ACTION IN YOUR 
ARCADE GAMES! 



400 (16K) 

COMPUTER 
$29.95 A 

48K UPGRADE KIT 

$25.00 



1030 
MODEM 

WITH 

EXPRESS 
$29.95 A 

GET ON-LINE TODAY! 



ATARI 
SPACE AGE 
JOYSTICK 

$5.00 A 

GUN TRIGGER ACTION! 



600XL(i6K) 

COMPUTER 

$49.95 A 

INCL. POWER 
SUPPLY & TV 
SWITCH BOX 



STANDARD 

ATARI 
JOYSTICK I 

$4.50 A ^ 

STOCK UP ON A FEW 
SPARES 



800 (48K) 

COMPUTER 

$69.95 B 

$79.95 A 

INCL. BASIC CART & 
MANUAL 




835 
MODEM 

WITH 

EXPRESS! 
$29.95 A 

LIMITED SUPPLY 



810 
DISK DRIVE 

$110.00 B 
$120.00 A 

INCLUDES POWER 

SUPPLY, I/O CABLE 

&DOS2 



REMOTE 

CONTROL 

JOYSTICKS (2) 

$15.95 A 

REQUIRES 2600 POWER 
PACK FOR USE WITH 
400/800/XL/XE - $5.00 



NUMERIC 
KEY PAD 

$7.95 A 

INCL. HANDLER DISK USE 

WITH THE BOOKKEEPER 

AND BASIC 



ATARI 
BOOKKEEPER 
$14.95 - NO BOX 

($19.95 WITH RECON KEYPAD) 

$24.95 -IN BOX 

($29.95 WITH RECON KEYPAD) 



ATARI 
TOUCH 
TABLET 
$39.95 A 

DONT PUT OFF GETTING 
THIS HARD-TO-FIND ITEM 



850 
INTERFACE 

$89.95 A 

LIMITED 
SUPPLY 



DISKETTES 

AS LOW AS 
20 CENTS 

10 FOR $4.00 
100 FOR $29.00 
1000 FOR $200 

MOST ARE UNNOTCHED 
WITH OLD SOFTWARE 




taViJ.T.'l'ndude 7% ^a^es^I!.°L^erya7d^'n°d"v^raXtei^ f ■°° '°^ f"^',' 'T' '''' *«-°° '^ ''^^ '^-- 

pre-paid with money order, cashier check or personal checK Pe sona checks affihPHfnrTh/oS^Ji '°=al phone directory. Orders may be 
orders are shipped via UPS and must be paid with cash racThiBr rhoru ol m^,?^, S , ^°' '^'^ weeks before order is processed. C.O.D 
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very disk drive owner 
has had the exper- 
ience of being unable to find a file, 
no matter how many times the disk 
Ubrary is searched. Keeping a 









\ 

N 



printed master disk directory 
works, but it is ofl:en very long and 
must be updated frequently to be 
useful. Disk labels can be used, 
but are often too small and hard 
to read. 
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The answer is to print individual disk 
jackets which may be cut out and used 
for each disk. All disk information, in- 
cluding disk title, number of free sec- 
tors, and a sorted disk directory, is 
printed directly onto the jacket with any 
Epson compatible printer. 

L_Jsii 



After typing in Listing 1, run the pro- 
gram. The screen will be cleared, and 
at the top of the screen "TITLE A" will 
appear to indicate that you are select- 



ing a two luie title for side A of the disk. 
Simply enter each line followed by 
RETURN, or RETURN alone for a 
blank line. Each line may contain up to 
1 7 characters, and may include graph- 
ics characters and inverse characters. 
After both lines are entered, insert the 
indicated side of your disk, and press 
RETURN to load the directory into 
memory. If you do not want to print 
anything on the disk jacket for this side 
of the disk, press ESCAPE instead. 
There may be a slight delay while the 
directory is alphabetized in memory. 
Now follow the above directions for side 
B of your disk. Up to 48 filenames can 
be stored in memory for each side of the 
disk. 

Next the screen will be cleared, and 
you will be given four choices. By typ- 
ing "G" you can change the printer 
graphics density (1 -Single density, 
2-Double density). Printing with single 
density graphics wUl be faster, while 
double density print wUl be darker. You 
can type "N" to create a new disk jack- 
et. This can either be used after a disk 
jacket is printed, or to correct any er- 
rors made while creating the jacket. 
Type "Q" to exit the program. The 
fourth option "P" will print the disk 
jacket. Disk titles will be centered when 
printed, and directories wiU be alphabe- 
tized. Be sure that your printer is con- 
nected and turned on. The screen will 
turn black during the printing to in- 
crease speed. 

Wlien the jacket is printed, cut it out, 
following the dotted lines uj Figure 1. 
Now fold the paper along the space be- 
tween both of the large rectangles. Both 
sides should now appear right side up, 
and the back side should be approxi- 
mately 3/4" taller than the front. On 
either side of the front, there will be ex- 
tra paper which should be folded 
around to the back, and taped or glued 
in place. 



Robert Plotkin is a 16-year-old junior 
attending Edward R. Murrow High 
School in Brooklyn, New York. He has 
owned an Atari computer for over tour 
years, and has been programming in 
Action! for two years. He holds a pur- 
ple belt in jujitsu, enjoys science fiction, 
and collects comic books. 
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^j ^J^C-^ Jt%w-CII^ mZ 



irat: 




///*/;Mr 



HM 
RB 
TP 
YO 
AR 
GA 
XG 



REM 
REM 
REM 
REM 
REM 
REM 
REM 



:*T*T*X«T*T*X*X«X*X«XT 



L"1"1"X'X'*"»'J 



DISK JACKET PRINTER 

IN BASIC 

BY 

ROBERT PLOTKIN 

COPYRIGHT 1988 

BY ANALOG COMPUTING 



,.^ ^ ^^^^ '•^•■'•■'•■'•■'■■'■■'■■'■■'■■'■''--■'--- . ■ .■^-.----.■.■. 

XZ 10 G05UB 10080: DIM TITL.E5 (58} 5pVt816) 
, TEMP$ f 50J , B0RD$ C50J , TLEN f 4J , PFLflG C2J , 
DR$ C1632) , EDGE$ (4J , LINE$ (50J : DH5=2 
WN 20 DIM FR5ECS(6) :5PS = SP$ t816) r" >■■ 

5P$C2)=SP$:EDGE$="n •-" " : LIMESz"-" : LINE 
$ f 50) ='•-" : LINES C2) 3LINES 

FC 30 DIM LNC2),INDC23,IN2(2) :LNCK0J=25:L 
N C13 r21 : IHD tKOJ =5 : IND tl) =3 : IN2 tKO) =12 : 
IN2C1)=8 

BL 40 GRAPHICS K0:5ETCOLOR 2,8,4:CL0SE tti 
:OPEN »1,4,K0,"K:"!GOTO 5000 

HY 100 LN^LEN tBORD$) : D0T5=LN*f8»WIDTH : PROS 

K5 140 FOR 1=1 TO HEIGHT : OUTlS="" 

UF 150 ADD=l:FINI5H=LN+l!j=l:IF BM THEN A 

DD=-l:FINI5H=8:J=LN 
ED 160 Ay=ASCCBORD$CJ)J :INU=AU>127:TF=F:T 

PP0S=PP05 : A = USR CGT, CHARD AT, 57344, lU CAV 

-128»INU),INy,UPDJ 
GU 200 FL=LENC0UT1$]+1:0UT1$CFL}="¥¥¥¥V¥V 

r':POKE 203,F:POKE 204, HEIGHT : POKE 205 

,PP05 

VX 210 A=U5RtGT2,ADRC0UTlStFL)),CHARDAT) ! 

FrPEEK C203> : PPOS = PEEK t205) 
TC 220 J=J+ADD:IF J=FINI5H THEN 240 
ML 230 F=TF:PP0S=TPP05:G0T0 160 
^^ 2 rm.Jfy^?^""^'*^^' '*'*'' ""T^^''0"T2,BM,LE 
UG 250 REM tTi;»Jir^ [ 



DE 260 HI=INTCD0T5/256) :L0N=D0T5-HHf256 

'" luhl»r^r»li V^'*^^"^ '^""^ '^'^'^^^^ ^ CHRS CL 

"° ^SS^S-"^" f 'iPRMT, 0UT2, LN*8, WIDTH»DNS) : ? 
ttPRNT 

GK 290 NEXT I 

YZ 300 RETURN 

CR 1000 ? CHR$C125 1 :POSTTTnM 18,0!' "liffn 

Wi.iM[4^ MJ!>< T¥TJn " ; RETURN r-r i n 

XG 1100 NF1LE=0:DPO5=5IDE*816+1 
UN 1110 DR$CDP0S,DP0S+815J=SPS:IF A=27 TH 

°^ iii^^^SSS^^^"" ii'16!? "LOADING DIRECTO 
RV^:TRAP 1180: close tt2!0PEN tt2,6,8,"D: 

5C 1130 INPUT »2,TEMP$:IF NFILE=48 THEN 1 

PT 1148 IF TEMP$t4,5J=" F" THEN FRSECSfSI 
DE*3+1, 5IDE»3+3) rTEMP$ : GOTO 1160 

EF 1150 DR$CDP0S,DP0S+16)=TEMP$:NFILE=NFI 
LE+1 : DP0S=DP0S+17 

PH 1168 GOTO 1138 

FL 1178 CLOSE tt2 : G05UB 2100: RETURN 

MJ 118B IF PEEKCi95)=136 THEN 1170 

"^^ iJIUo'^ " H^B ERROR! !>";PEEK 

C_195):? ■■ PRESS ANY KEY TO CONTINU 

WB 1198 GET ni,A:POP : POP :G0T0 5000 

"^ ^S5S. S='**2 + 1:B0RD$C1J=EDGE$CA,A) :B0RDS 
CMAHLEN, MAKLEN) =EDGE$ (A+1) 

^"^ i?J2,.^°'">^'2,MAKLEN-lJ=LINE$:WIDTH = l!H 

EIGHT=1:G0SUB 2O00:RETURN 
WH 1308 CNT=O:L=0:IF SIDE THEN L=l 
AB 1310 IN=INTCC17-TLEN(SIDE*2+L)J/2) : TEM 
H P| = TITLE$ CSIDE»34 + L»17 + 1, SIDEi34 + Lii7V 
W fnA'-^r'-''"^'^^^ :INDzINDt5IDE)+IN 
^ f 328 SLEN=17-IN:FILL=1:G05UB 1400 

°" in^f,?C ^^^^ ^"1" B0RD$C1,1J=CHR$C2) :B 
0RDStLN,LN)=CHR$C2):GOTO 1350 
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1348 B0RD$Ci)=CHR$C22J : BORDS tLHJ =CHR$ C 

22) 
KB 1359 WIDTH=2:HEIGHT=3:G05UB 26ee!L=l-L 

• CNT— CNT+1 
MM i368~IF CNT02 THEN 1318 
BA 1378 RETURN 
KQ 1400 B0RD$="|":B0RDStLNJ="|":B0RD$C2,L 

N-1)=5P$ 
UU 1428 IF FILL AND PFLftG tSIDE) THEN BORD 

S{IND,IND+5LEH-1)=TEMP$ 
AQ 1430 RETURN 
LE 1508 LNr:MftXLEN:FILL = 8:G05UB 1408:mDTH 

=l:HEIGHT=l:G05UB 288e:RETURN 
XD 1600 TEMP$="5IDE (t FREE SECTORS 

" : TEMP$ {6,6) =CHR$ C5IDE + 65) 
VS 1610 TEMPSCll,13)=FR5EC$f5IDE»3+l) :LN= 

MftXLEN : 5LEN=26 : IND = IN2 tSIDE) : FILLzl : GO 

SUB 148e:WIDTH=l:HEIGHT=2 
DP 1628 GOSUB 2088: RETURN 
FK 1700 DP0S=l:IND=8:WIDTH=l:HEIGHT=l:SLE 

N=35:FILL=l:DA=34:IF SIDE THEN DP0S=15 

99:IND=4:Dfl=-34 
BI 1710 FOR L=8 TO 23 : TEMPS=DRS CDPOS, DPOS 

+16) :TEMP$I18)=" ":TEMPS(19)=DR$CDP0S+ 

17,DP05+33) 
HK 1730 LN=MflXLEN: GOSUB 1480:G0SUB 2O80:D 

P05=DP0S+DA:NEXT L:RETURN 
RN 2000 BW=0!UPD=0:IF SIDE THEN BW=l!UPD= 

1 : BORDS tLEN CBORD$) +1) =SP$ CI, C3-WIDTH)» 

2) 
GF 2018 GOSUB 180:RETURN 
DK 2100 CURR=5IDE»816+l:IF NFILE<2 THEN 2 

178 
NS 2118 FOR 0UT=1 TO NFILE-1 : MftTCH=CURR+l 

7 
KG 2128 FOR IN=1 TO HFILE-OUT 
6Z 2138 IF DR$tMATCH+2,MATCH+9)>=DRStCURR 

+2,CURR+9) THEN 2158 
OZ 2148 I=MflTCH+16:J=CURR+16:TEMPS=DR|tMfl 

TCH,I) :DR$tMflTCH,I)=DRSCCURR, J) :DR5tCU 

RR, J)=TEMP$ 
FU 2150 MflTCH=MflTCH+17:NEKT IN 
NX 2168 CURR=CURR+17:NEKT OUT 
AX 2178 RETU RN 

XM 5008 REM fJTif ;»-i rn n ■■! ■ m ;i'n itJiMjAj 

LD 5010 FOR SIDE=8 TO 1: GOSUB 1000:POSITI 
ON 16,2:? "TITLE ■■; CHR$ {SIDE + 65) 

TM 5028 TP0S=5IDE»34+l:P0KE 752, 8 : TITLES t 
TP05,TP0S+33)=SP$ 

IR 5030 POSITION 8,4:? "ENTER A TWO LINE 
TITLE":? " PRESS <RETURN> AFTER EACH 
LINE" 

QW 5040 ? " MAXIMUM 17 CHARACTERS PER L 
INE" 

5050 FOR I=B TO 1 : A=I»2 : POSITION 12,9+ 
^., .. ":POSITION 11,8 + 

A: INPUT TEMPS 

5060 A=LENtTEMPS) :IF A>17 THEN A=17 
Om 5870 TLENCI+SIDE»2)=A:TITLE$tTP0S+I*17 

,TP0S+I*17+16)=TEMPS:NEXT I 
GV 5080 POKE 752,l:P0SITI0N 9,12:? "INSER 

T DISK — >SIDE ";CHRSCSIDE+65) :P0SITI0N 
5,14 
CA 5090 ? "OR PRESS <ESC> FOR NO DIRECTOR 

Y":GET »l,A:PFLAGCSIDE)=l:IF A=27 THEN 
PFLAGtSIDE)=8 
EG 5188 GOSUB 1168 : NEXT SIDE 
IW 5118 GOSUB 1880:P0KE 82. 18 : POSITION 18 

,8:? "Braphics Density->":? "Qew Disk 

Jacket":? "Quit Prograw" 
IE 5128 ? " ElRINT":POKE 82,2 
KA 5130 POSITION 28,8:? CHRS IDNS + 176) : GET 

ttl, A 
PA 5140 IF A=71 THEN DNS=3-DNS ! GOTO 5199 
KA 5150 IF A=88 THEN GOSUB 5280 : GOTO 5198 
UL 5168 IF A=78 THEN 5019 
DT 5178 IF A=8i THEN POSITION 15,13:? "OU 

IT Cia/C]) ?" ! GET ttl. A: POSITION 15,13:? " 

■ ■ 

FH 5188 IF A=89 THEN GRAPHICS ; END 
RM 5198 GOTO 5138 



NA 5208 REM t:i:t:« Jrli'fc^r:TMr< 



CREATE ML STRINGS 



TO 61: READ A 



iGTS(I,I)=CH 
1GT2S(I,I)=C 
IPRNT$£I,I)= 



FF 5218 POKE 559, 8: TRAP 5278 : CL8SE ttPRNT : 

OPEN ttPRNT, 8, K8, "P : " : SIDE = 8 : MAXLEN=49 
IQ 5220 A=0:GOSUB 1288:G0SUB 1380:GOSUB 1 
508:GOSUB 168e:G0SUB 1588:G0SUB 1780:A 
=l:G8SUB 1288 
TB 5238 SIDE=l:MAKLEN=41:? ttPRNT 
DN 5248 A=l:GOSUB 1280:GOSUB 178e:G0SUB 1 

500:GOSUB 1600:GOSUB 150O:GOSUB 1389 
EB 5258 FOR L=e TO 6 : GOSUB 1568:NEXT L:A= 

8: GOSUB 1289 
UQ 5268 POKE 559,34:G0T0 5130 
NQ 5270 POKE 559,34:? :? " 0/0 ERROR! 
!>";PEEKC195) :? " PRESS ANY KEY 
TO CONTINUE" 
TG 5288 GET «1,A:P0P : POP :POSITION 14,13 

:? " ":GOTO 5130 

BG 10008 REM !:?:;:i I :»i nirTr4^:H* n '»:?:;:: 
ja 10818 K8=8:PRNT=3 

IV 18828 DIM IUtl27),CHARDATSC8) .0UT1S{96 
0) ,0UT2S(968) ,ROTATES{109) ,GTSC83) , PRN 
TSC61) ,GT2$f45) 
MR 10040 FOR I=KO TO 31 : lU (I) = CI+64)»8 :NE 
XT I:FOR 1=32 TO 95 : lU £1) = tI-32)»8 : NEX 
T I 
OB 10050 FOR 1=96 TO 127 : lU CI) =I«8 : NEXT I 
HC 10078 OUT2$C1)="¥":OUT2SC960)="»":OUT2 
SC2)=0UT2S:GT=ADRCGTS) : GT2=ADR CGT2S) :A 
PRNT=ADRtPRNT$) 
FU 10088 CHflRDATS = "»»»1>¥¥¥»":CHARDAT = ADRC 
CHARDATS) :0UT2=ADRC0UT2S) : R0TATE=ADB CR 
OTATES) 

QA 10090 REM ^___ 

SM 18180 RESTORE 12888: FOR 1=1 TO 189 : REA 

D A:R0TATESCI,1)=CHRSCA) :NEXT I 
UR 18118 FOR 1=1 TO 83 : READ 

RSCA) :NEXT I 
VK 10128 FOR 1=1 TO 45:READ 

HRSCA) ;NEKT I 
AD 18130 FOR 1=1 

CHRSCA) :NEXT I 
DQ 18148 RETURN 

DB 12009 DATA 184,184,133,213,184,133,212 
,184,133,215,104,133,214,184,104,133,2 
16,104,133,222,184,133,221,160,8 
LM 12018 DATA 132,229,162,0,177,212,230,2 
12,208,2,239,213,149,228,232,224,8,288 
,241,162,8,22,228,42,232 
EB 12828 DATA 224,8,288,248,166,216,240,8 
,133,219,152,73,7,168,165,219,145,214, 
238,228,165,228,164,220,201 
SN 12038 DATA 8,208,222,162,8,165,221,56, 
233,1,133,221,176,2,198,222,238,214,20 
8,2,238,215,202,288,236 
AN 12848 DATA 166,221,288,175,166,222,288 

,171,96 
DO 12858 DATA 184,162,18,184,149,212,202, 
288,258,166,215,249,4,198,215,198,215, 
165,219,133,223,165,228,133,224 
OW 12868 DATA 165,217,24,181,223,144,2,23 
8,224,133,223,165,224,181,218,133,224, 
169,9,177,223,69,215,153,225 
BV 12979 DATA 9,288,152,291,9,288,243,160 
,0,132,217,165,213,249,4,152,73,7,168, 
185,225,0,164,217,145 
RF 12989 DATA 221,299,152,201,8,298,233,9 

6 
OP 12099 DATA 184,184,133,217,184,133,216 
,184,133,219,194,133,218,162,8,134,228 
,164,205,177,218,164,228,145,216 
DR 12180 DATA 230,283,165,283,197,284,208 
,6,169,9,133,283,239,285,232,224,8,288 
,227,96 
UK 12119 DATA 194,162,6,184,149,211,202,2 
88,259,162,11,142,114,3,162,9,142,120, 
3,142,121,3,169,8,132 
JP 12128 DATA 228,177,216,162,48,32,86,22 
8,238,228,166,228,228,212,288,243,238, 
216,288,2,238,217,198,214,288 
RB 12139 DATA 227,165,215,249,5,198,215,2 
4,144,218,96 



A.N.A,L.O,G,COMPUTING')UNE 1988 



31 



SUBSCRIBE TO ANALOG 

SAVE $ 1 4 OFF fHE COVER PRICE 




1 YEAR FOR ONLY $28-SAVE $14 
1 YEAR WITH DISK ONLY $ 1 05 



n 1 YEAR @ $28— SAVE $14! 
FOREIGN- ADD $7 PER YEAR (MCFYY) 
D 1 YEAR WITH DISK @ $105 

FOREIGN— ADD $15 PER YEAR (DCFYY) 
MONEY BACK— On all unused portions 
of subscriptions if not satisfied. 



Your first 

issue 

will arrive 

in 6 to 8 

weeks 

WATCH 

FOR 

IT! 



n PAYMENT E^ 
CHARGE MY: 


JCLOSED 

DVISA 


D BILL ME 
nMC# 






EXPIRATION DATE 


SIGNATURE 


NAME 


ADDRESS 



CITY 



STATE 



ZIP 



MAKE CHECK PAYABLE TO L.F.P., INC., P.O. Box 16927, N. Hollywood, CA 
91615. Offer expires August 31, 1988. 



SUBSCRIBE TO ST-LOG 

SAVE $ 1 4 OFF THE COVER PRICE 




1 YEAR FOR ONLY $28-SAVE $14 
1 YEAR WITH DISK OHIY $105 



D 1 YEAR @ $28— SAVE $14! 
FOREIGN-ADD $7 PER YEAR (MCFYW) 
D 1 YEAR WITH DISK @ $105 

FOREIGN— ADD $15 PER YEAR (DCFYW) 
MONEY BACK-On all unused portions 
Of subscriptions if not satisfied. 



Your first 

issue 

will arrive 

in 6 to 8 

weeks 

WATCH 

FOR 

IT! 



D PAYMENT ENCLOSED 
CHARGE MY: D VISA 



DBILL ME 

n MC# 



EXPIRATION DATE 



SIGNATURE 



NAME 



ADDRESS 



CITY 

MAKE CHECK PAYABLE TO L.F.P., INC, 
91615. Offer expires August 31, 1988. 



STATE ZIP 

, P.O. Box 16928, N. Hollywood, CA 




f^jy^ JS/// /SOi:^&:/-^s^&^'^-^ 




fter using an Atari 
800 for two years, 
I was immediately impressed with 
the faster screen output on XL and 
XE models. When you spend as 
much time LISTing as I do, speed 
is very important. But as fast as the 
newer print character routines in 
the operating system are, screen 
output can be made even faster. 
Two to three times faster. 



Want proof? Just type in the data in 
Listing 1 using M/L Editor. M/L Editor 
will create an object file— name it AUTO- 
RUN.SYS, or FASTPRNT.OBJ to load 
from DOS— that when binary loaded, 
handles all output sent to the screen edi- 
tor device ("E:"). You'll find the source 
code in Listing 2. 

Okay, you've got the Fast Print rou- 
tine loaded and running. From BASIC, 
load any long BASIC program for a 
demonstration. Now type "LIST". Pret- 



ty speedy, huh? Notice that a "press any 
key" prompt appears at the bottom of 
the screen everytime the screen fiUs up, 
lettmg you read the text before it scrolls 
up and away. To disable this pause fea- 
ture, just POKE a zero into location 
847. POKE any non-zero value to re- 
store the pause. Also, to disable Fast 
Print, type POKE 846,0. POKEmg any 
non-zero value back into 846 will once 
again relieve the operating system of 
some of the work. Pressing RESET 
completely disables Fast Print, requir- 
ing reloading before you can use it 



again. 

CZ; M a. 1-1 .S ' •"* ^ tKi^ 

If you understand assembly language, 
take a look at Listing 2. The program 
"pokes" most of the characters it 
receives directly into screen RAM, and 
lets the OS handle the complicated stidT, 
like control characters and scroUing. 

The initialization routine sets both lo- 
cations 846 and 847 ($34E and $34F) 
to one. If you'd like the pause feature 
off when loaded, change the LDA #1 in 
line 940 to LDA #0. 

Because Fast Print is active constant- 
ly, I was forced to place it in Page 6. 
If put in LOMEM, going to DOS would 
write over it and cause a crash. If a 
more favored machine language pro- 
gram already resides in Page 6 of 
memory, you can always assemble the 
code elsewhere, higher up in RAM. If 
you choose unprotected memory, be 
very careful that you store nothing else 
there. Press RESET first if you should 
need to. 

Bill Bodenstein is a Computer Sci- 
ence Major (for what seems to him like 
his eighth consecutive year) at the Uni- 
versity of Cincinnati. He owns two Atari 
SOOXLs (one sans a power supply) and 
one 800. He has taken courses at UC 
in PASCAL, FORTRAN, PL/I, BASIC, 
ASSEMBLY, and COBOL, but his 
favorite language is 6502 M/L. He has 
already taught himself 68000 assembly 
in preparation for the day he purchases 
an Atari ST— just as soon as the prices 
come down another $300 so he can af- 
ford one. 
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Listing I: Mi [dk Did 



1000 DflTfl 255,255,8,5,194,5,173,9,2,20 

1,6,240,85,141,219,6,5052 

1010 DftTfl 173,8,2,141,218,6,128,169,17 

4,141,8,2,169,6,141,9,2715 

1020 DflTft 2,88,160,15,185,0,228,153,20 

2,6,136,16,247,169,255,141,707 

1030 DftTft 208,6,169,5,141,209,6,169,20 

2,141,33,3,169,6,141,34,3697 

1040 DftTft 3,162,0,169,12,157,66,3,32,8 

6,228,169,3,157,66,3,2490 

1050 DftTft 169,12,157,74,3,169,103,157, 

68,3,169,5,157,69,3,32,1141 

1060 DftTfl 86,228,169,1,141,78,3,169,1, 

141,79,3,96,69,58,0,67 

1070 DftTft 6,201,6,172,78,3,208,3,76,13 

0,6,164,87,208,249,164,8492 

1080 DflTfl 17,240,73,172,255,2,208,247, 

172,79,3,240,82,201,125,208,1537 

1090 DATA 7,160,0,140,201,6,248,224,20 

1,155,240,6,166,85,228,83,657 

1100 DftTfl 144,61,238,201,6,32,130,6,17 

4,201,6,224,21,144,47,160,5948 

1110 DftTfl 0,140,201,6,185,184,6,145,94 

,200,192,17,208,246,169,255,3173 

1120 DftTfl 141,252,2,205,252,2,208,9,16 

6,17,208,247,160,128,132,17,8431 

1130 DflTfl 96,141,252,2,168,0,152,145,9 

4,200,192,17,208,249,96,166,744 

1140 DflTft 85,228,83,176,16,170,41,127, 

201 , 125 , 176, 8, 281, 32 , 176, 16 , 6885 

1150 DftTfl 201,27,144,12,138,168,173,7, 

228,72,173,6,228,72,152,96,7385 

1160 DATA 201,96,8,138,40,176,3,56,233 

,32,160,0,145,94,230,85,6042 

1170 DflTft 238,99,230,94,208,2,230,95,1 

77,94,133,93,73,128,145,94,7618 

1180 DftTfl 96,72,169,0,141,201,6,104,10 

8,218,6,0,0,156,240,242,7586 

1190 DATA 229,243,243,128,225,238,249, 

128,235,229,249,158,0,226,2,227,4332 

1200 DftTfl 2,0,5,0,0,0,0,0,0,0,8,0,0,0, 



Listi/iil'hmtlf 



10 KXXMKKKKKKKXKMXXXMKKKXXKXMKKICMKK 
20 *» FAST PRINT »* 
30 ** By Bill Bodenstein »» 

40 »» 11/24/86 1(* 

50 XXXXXXKXXXKXXKXXKKXKKKXXXKKKXXKK 



60 ; 
70 ; 

80 ; 
90 ; 
0100 
Olio 
0120 
0138 
0140 
0150 
0160 

0170 

0180 
0190 
0200 
0210 
0220 
0230 



This M/1 routine will put 
characters directli; into screen 
MeMorv for faster printing. 
;Output sent to the screen 
;editor is routed here. 

** EQUATES «» 

RGTMARGIN = $53 
CUR5C0L = S55 
KEYPRESS = S02FC 
NOKEV = 255 
BRKKEY = $11 
BREAK = 128 
CLEAR = 125 
RETURN = 155 



0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
8380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
0600 

0610 

0628 

0630 

0640 

0650 

8668 

8670 

6688 

8698 

8700 

0710 

0720 

0730 

0740 

0750 

0760 

0770 

0780 

0790 

8888 

8818 

8828 

8838 

8840 

0850 

0860 

0870 

0880 

0890 

0900 

0910 

0920 

0930 

0948 

8958 

8960 

8978 

0980 

0990 

1000 

1818 

1820 

1838 

1848 



ICCOM = $8342 
ICBADR = $8344 
ICBAUX = $834A 
FPFLG = $834E 
PAUSEFLG = $834F 
OPEN = 3 
CLOSE = 12 
INOUT = 12 
CIO = $E456 
EHANDTAB = $E4ee 

UKEYBD = $8288 



»= $8588 

INITIALIZE 

5ETKEYINT 

LDA UKEYBD+1 ; Change keybd 

CMP » >HEHKEYINT ; interrupt 

BEQ SETFLGS ;vector to go 

STA OLDKEYINT+1 ;to here 

LDA UKEYBD ;before 

STA OLDKEYINT ;handling 

SEI ;keypress 

LDA n <NEHKEYINT 

STA UKEYBD 

LDA tt >NEHKEYINT 

STA UKEYBD+1 

CLI 

COPYEHAND 

LDY »15 ;Mowe E handler 
COPYBYTE LDA EHANDTAB, Y ;table 

STA NEMEHAND,Y ; frOM O.s. to 

I>EY ;Fast Print 

BPL COPYBYTE 

SETNENPUT 

LDA » <tEPUTCHAR-13 ; Set new 
STA NEHEHAND+6 ;put Char 
LDA tt >CEPUTCHAR-1] ; vector 
STA NEMEHAND+7 ; to F.P, 

SETNEWHAND 

LDA tt <NEMEHAND 
STA $8321 
LDA tt >NEMEHAND 
STA $8322 



CLOSESCR 

LDX tt8 
LDA ttCLOSE 
STA ICCOM, X 
JSR CIO 



;Close editor 



OPENSCR 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JSR 

SETFLGS 
LDA 
STA 
LDA 
STA 
RTS 



ttOPEN ;Then open it 

ICCOM, X 

ttlNOUT 

ICBAUX, X 

tt <EDEU 

ICBADR, X 

tt >EDEU 

ICBADR+1,X 

CIO 



ttl 

FPFLG 

ttl 

PAUSEFLG J Pause on 



;Set flags: 
;Fast Print on 



EDEU .BYTE "E:" 

] *= $8688 

;Receiue a character being put 
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1858 


;to the screen editor. 


1860 


9 


1870 


EPUTCHAR 


1880 


FROM? 


1890 


LDY FPFLG ;G0 to O.S. if 


1188 


BNE GR8? ;F.P. Off 


1118 


GO. OS JMP PRZNTCHAR 


1128 


I 


1138 


GR8? 


1140 


LDY S57 ; Go to O.S. if 


1158 


BNE GO. OS ;not text node 


1168 


/ 


1178 


BREAK? 


1188 


LDY BRKKEY ; Abort if 


119« 


BEQ ABORTOUTPUT ;breaked 


1200 


i 


1218 


CTRLl? 


1228 


LDY $82FF ;Loop if CTRL-1 


1230 


BNE BREAK? ;pressed 


1248 


i 


1258 


PAUSEON? 


1268 


LDY PAUSEFLG 


1278 


BEQ FA5TPRINTCHAR 


1288 


/ 


1298 


CLEAR? 


1380 


CMP »CLEAR ;lf Clear char. 


1318 


BNE COUNTLINE ; reset row 


1320 


LDY tt8 ;counter 


1338 


STY ROMCNTR 


1348 


BEQ GO. OS 


1358 


/ 


1368 


COUNTLINE 


1378 


CMP ttRETURN ;Keep count of tt 


1388 


BEQ INCLINE ;of lines 


1398 


LDX CURSCOL ;printed 


1480 


CPX RGTMARGIN 


1418 


BCC FASTPRINTCHAR 


1428 


INCLINE INC ROMCNTR 


1430 




1448 


;Every 22nd line printed, pause 


1458 


;output and wait for kei/press. 


1468 




1478 


PAUSESCR? 


1488 


JSR PRINTCHAR 


1498 


LDX ROHCNTR 


1588 


CPX tt21 


1518 


BCC LEAVE 


1528 


/ 


1538 


PUTM5G 


1548 


LDY tt8 ; Print proMpt 


1558 


STY ROMCNTR ; Message 


1568 


PUTBYTE LDA MSG,Y 


1578 


STA C$5E),Y 


1588 


INY 


1598 


CPY tt <[R0MCNTR-M5G1 


1688 


BNE PUTBYTE 


1618 


9 


1628 


LDA ttNOKEY ;Clear last 


1638 


STA KEYPRESS ; key pressed 


1648 


i 


1658 


MAITFORKEY 


1668 


CMP KEYPRESS ;Mait for user 


1678 


BNE CONTOUTPUT ;to hit a key 


1688 


LDX BRKKEY 


1698 


BNE MAITFORKEY 


1780 


/ 


1710 


ABORTOUTPUT 


1720 


LDY tJBREAK ; <BREAK> pressed 


1730 


STY BRKKEY 


1740 


RTS 


1758 


» 


1768 


CONTOUTPUT 


1770 


STA KEYPRESS ;Clear keypress 


1780 


CLRMSG 


1798 


LDY no ;Clear proMpt 


1808 


TYA ;Msg 


1818 


CLRBYTE STA (S5EJ , Y 


1828 


INY 


1838 


CPY U <[R0MCNTR-M5G1 


1848 


BNE CLRBYTE 


1850 


LEAVE RTS 
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1868 








1878 


; Put character directly in 


1888 


;screen 


MeMory unless scrolling 


1890 


jor control character. 


1908 








1918 


FASTPRINTCHAR 




1928 


LDX 


CURSCOL 




1938 


CPX 


RGTMARGIN 


1948 


BC5 


PRINTCHAR 


1958 


TAX 






1968 


AND 


»127 


;ls char a 


1978 


CMP 


ttl25 


;non-control 


1988 


BCS 


PRINTIT 


;char? 


1990 


CMP 


tt32 




2888 


BCS 


PUTIT 




2818 


CMP 


tt27 




2028 


BCC 


PUTIT 




2838 


t 






2848 


PRINTIT 






2858 


TXA 






2060 


PRINTCHAR 




2070 


TAY 




iPrint this char 


2080 


LDA 


EHANDTAB+7 ;with O.S. 


2090 


PHA 




;routine 


2100 


LDA 


EHANDTAB+6 


2110 


PHA 






2120 


TYA 






2130 


RTS 






2140 


/ 






2150 


PUTIT 






2160 


CONVCHAR 




2170 


CMP 


tt96 


jConvert to 


2180 


PHP 




; internal 


2190 


TXA 




;charset 


2200 


PLP 






2210 


BCS 


PUTCHAR 




2220 


SEC 






2230 


SBC 


tt32 




2240 


, 






2250 


PUTCHAR 






2260 


LDY 


no 


;Put char in 


2270 


STA 


CS5EJ ,Y 


;curs pos in 


2280 


/ 




screen nen 


2290 


MOVCURS 






2300 


INC 


CURSCOL 


;Move cursor 


2310 


INC 


$63 


;pointers to 


2320 


INC 


S5E 


;next colunn 


2330 


BNE 


PUTCURS 




2340 


INC 


S5F 




2350 


t 






2360 


PUTCURS 






2370 


LDA 


CS5EJ,Y 


;save char under 


2380 


STA 


$5D 


;cursor and 


2390 


EOR 


ttl28 


; inverse it 


2400 


STA 


CS5E1,Y 




2410 


t 






2420 


EXITPUTCHAR RTS 




2430 


, 






2440 


t 






2450 


;Clear row counter for screen 


2460 


;pause ewerytiHe a key is 


2470 


;pressed. 




2488 


f 






2498 


NEMKEYINT 




2588 


PHA 






2510 


LDA 


ttO 




2520 


STA 


ROMCNTR 




2530 


PLA 






2540 


JMP 


COLDKEYINT) 


2550 
2560 
2570 
2580 


1 

M5G .SBYTE " H" 
ROMCNTR .BYTE 








2590 


NEMEHAND »= »+16 


2600 


OLDKEYINT »= »+2 


2610 


/ 






2620 


ENDFP 






2630 


\ 






2640 


§ 






2650 


»= 


$02E0 




2660 


.HORD INITIALIZE 











3S 





he Atari Disk Utili- 
ties Package is a 
necessary tool in using any Atari 
computer with a disk drive. Well, 
it isn't really necessary, with all of 
the DOS-functions-from-BASIC 
utilities available. But these pro- 
grams eat up memory otherwise 
usable by BASIC (or whatever lan- 
guage you happen to be program- 
ming in). So Atari has the right idea 
in having a disk-resident DOS in- 
stead of a memory-resident one. 
But the menu is sometimes awk- 
ward to use. For example, when you 
try to format a disk, you're first 
asked the drive number, then 
you're asked if you're sure, then 
you have to press RETURN. 
Wouldn't it be nice to escape from 
all those prompts? 
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3i 



)UNE l?88«A.N.A,L.O,G, COMPUTING 



One way would be to buy one of those 
DOS-from-BASIC utilities. Or you could 
invest in a completely new Disk Operat- 
ing System. But if you don't want to 
spend any money, you can take a look at 
COM-DOS. 

COM-DOS is a replacement Disk Utili- 
ties Package, compatible with Atari DOS 
2.0 & 2.5. It is a command-driven DOS, 
so if you can type well, you'll probably 
like COM-DOS better than the menu of 
Atari's DOS. COM-DOS provides aU 
functions on the DOS menu except dupli- 
cate disk (and, with DOS 2.5, the For- 
mat Single option). Plus, it adds several 
functions not on the menu. It functions 
just Uke the Atari DUP, MEM.SAV ffles 
work the same, and it is completely com- 
patible with the 130XE ramdisk. 



To use COM-DOS, first type in Listing 
1, using M/L Editor found elsewhere in 
this issue. Name the resulting file 
DUP. SYS. Listing 2 is the assembly 
source listing, created using MAC/65. 



1 9 sins 

cz; cz> r-^ - iz^ cz> s 

When the READY prompt comes up 
(assumuig you booted with BASIC in- 
stalled), type DOS. When it has loaded 
in, you'll see the title and a prompt to 
enter a command. To view the command 
Ust, type "HELP" and press RETURN. 
The screen will clear, and all of the com- 
mands supported by COM-DOS will be 
displayed. Before I discuss the com- 
mands themselves, I must warn you 
about the syntax these commands use. 
Unlike BASIC and most other languages, 
COM-DOS is very picky about syntax. 
BASIC will remove any extra spaces in 
a program line and insert any that were 
left out. COM-DOS will not. Each com- 
mand must be entered with no spaces be- 
fore it. It won't hurt anything if you do 
insert unnecessary spaces, but COM- 
DOS won't accept it as a valid command. 
Also, each command must use capital let- 
ters and no inverse characters. Again, 
failure to obey that rule won't hurt any- 



thing; the program will just refuse the 
command. Figure 1 lists the commands 
in their proper syntaxes, along with ex- 
amples of their usage. 

Here is a list of the COM-DOS com- 
mands and their functions: 



HELP— As you have seen, 
HELP lists all of the commands 
supported by COM-DOS. 
LOCK D:FILENAME.EXT- 

Locks the file specified. 
UNLOCK D:FILENAME. EXT- 

Unlocks the file specified. 
DELETE D:FILENAME. EXT- 

Deletes the file specified. 
RENAME D:OLDNAME,NEW- 

NAME— Renames file D:OLD- 
NAME, NEWNAME. 
DIRn— Displays the directory of 
drive #n. The number isn't 
necessary; the default is drive #1 , 
but, if a different drive is speci- 
fied, it becomes the default. 



FORMATn— Formats the disk in 
drive #n. The default is drive #1, 
and it stays drive #1, even if a 
new drive is specified, so be 
careful with this command. 
Remember that you are not 
asked if you're sure; so be es- 
pecially careful with this one! 
WDOSn— Writes DOS.SYS to 
drive #n; the default is (and stays) 
drive #1. This command doesn't 
write DURSYS; so you must 
either COPY or DUPIicate 
DURSYS. 

WMEMn— Writes MEM.SAV to 
the disk in drive #n. The default 
is always drive #1. 



BSAVE D: FILENAME, START, 

END— Saves the memory from 
START to END on the file speci- 
fied. START and END must be 
decimal numbers! When the file 
is saved, you will be prompted 
for a RUN/INIT address. If you 
want to append one to the file, 
enter it (again, in decimal), and 
press RETURN. The address will 
be appended to the file. If you 
don't want to specify a RUN/INIT 
address, just press RETURN. 
The file will be closed after either 
response. 

BLOAD D:FILENAME.EXT— 
Loads a binary file, just as option 
V from the DOS menu does. 
COPY D:FILE1,D2:FILE2— 
Copies F1LE1 to D2:F1LE2. The 



first file can be appended to the 
second file by placing a slash (/) 
after the second filename. Any 
legal device can be substituted 
for either (or both) filenames. 
DUP DrFILENAME-Duplicates 
the file specified. WARNING: 
This function will usually erase 
any programs in memory; so be 
careful with this command too. 
You'll be prompted to insert the 
source disk, then the destination 
disk. 

BOOT filename.ext— Makes 
the file specified automatically 
run when the disk in drive #1 is 
booted. This command writes an 
AUTORUN.SYS file to the disk; 
so if one already exists, delete it. 
The file must be a SAVEd BAS- 
IC program. Also, note that the 
'D:' designation is not specified 
in this command, just the file- 
name itself. 

GO ADDR— Executes a ma- 
chine language routine at 
decimal address ADDR. The ad- 
dress must be a decimal num- 
ber; if it isn't, there's no telling 
what might happen. 
?hxnm— Converts the four-digit 
hexadecimal number specified 
into a decimal number Notice 
that there is no space between 
the question mark and the hex 
number 

REBOOT— Reboots the com- 
puter Remember, there are no 
questions asked, so anything in 
memory is erased (REBOOT is 
identical to turning the computer 
off and on again). 
CLICK— On XL/XE computers, 
this command toggles the key- 
click on/off. It has no effect on 
400/800 computers. 
STATUS— Tells whether the 
write-verify function is on or off. 
the current active drives, and the 
maximum number of files that 
can be open at one time. If you 
want to change any of these, fol- 
low the prompts. The first ques- 
tion is whether you want to tog- 
gle the write-verify function. 
Press Y or N, then RETURN. 
Remember, turning off write- 
verify will make the computer 
save files faster, but the reliabili- 
ty is decreased. If you use high- 
quality disks, you can usually live 
without write-verify Otherwise, I 
would suggest leaving write- 
verify on. 

The next deals with active 
drives. If you don't want to 
change them, type N and press 
RETURN. If you do want to 
change them, answer Y to the 
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prompt and press RETURN. 
Type the drive numbers, one at 
a time, pressing RETURN after 
eacti one. Enter when you're 
finished. For example, to activate 
only drive 1, you would type; 
Y < RETURN > 
1 <RETURN> 
< RETURN > 

Then the next question will 
come up. If you want to change 
the number of files that can be 
opened at one time, type Y, then 
RETURN. Then enter the maxi- 
mum number of files and press 
RETURN. 

The changes will be made af- 
ter each entry To save DOS with 
your defaults, use WDOS. If you 
want to escape from the ques- 
tions and not change anything, 
you can press RETURN at any 
prompt to take you back to the 
'Enter command' prompt. 
BASIC— Returns control to BAS- 
IC (or whatever cartridge is 
plugged in). If a MEM.SAV file 
was present on the disk in drive 
#1 (or the ramdisk if you have a 
130XE), and you didn't use the 
DUP command, anything you 



had in memory will still be there. 



COM-DOS has some extra features I 
added for safety and comfort. First, the 
break key is disabled, so you can't ac- 
cidentally press it and wipe out every- 
thing that was in memory. Second, the 
background color is changed to dark 
green and the cursor flashes. Third, any 
errors that are encountered during I/O 
will be reported to the user. Finally, if 
you have an XL/XE machine, fine scroll- 
ing is enabled, and the Click command 
allows you to toggle the keyclick on and 
off. 

I wrote COM-DOS usmg MAC/65 and 
the macros provided in the manual. It 
started out as a command-tlriven DOS 
with nine commands. At the time I wrote 
the first version, it hadn't occurred to me 
to use the macros, and the program 
didn't work the way I wanted it to. I gave 
up that project and started the second 
version. In that one, I had it load into 



memory as an AUTORUN.SYS fde, and 
it added the original nine commands to 
BASIC, eliminating the need for 
DUP.SYS. But it didn't work Uke I want- 
ed it to either (it locked up for no ap- 
parent reason). After giving that up, I 
realized that the macros might help me. 
They did, but the resulting code is ex- 
tremely long. The advantage is that the 
program works nearly flawlessly. Notice 
I said nearly. I would strongly suggest 
saving any important programs or data 
in memory before using the following 
commands: BLOAD (unless you know 
that it will load into safe memory); DUP 
(it usually erases anything in memory); 
REBOOT (it's obvious!); and GO (it 
might not always recover). 

COM-DOS should work with any pro- 
grams that Atari DOS works with, since 
it uses DOS.SYS and is almost exactly the 
same length as Atari's Disk Utilities Pack- 
age. You can make copies of COM-DOS 
by using WDOS to write DOS.SYS, then 
copying or dupUcating DUP.SYS to 
another disk. 



The two-letter checksum code preceding the line numbers 
here is not a part of the BASIC program. For further infor- 
mation, see the "BASIC Editor II," in issue 47. 



Listing 1. 
BASIC listing. 



<— <=>r-r-i r-r-i^mcd 

HELP 

LOCK DiFILENAME 

UNLOCK DiFILENAME 

DELETE D:FILENAME 

RENAME: D:FILE1,FILE2 

DIRn 

DIR 

FORMATn 

WDOSn 

WMEMn 

BSAVE D:FILENAME,1536,1664 

BLOAD DiFILENAME 

COPY D:FILE1,D4:FILE1 

COPY D:FILE1,D2:FILE2 

COPY D:FILE1,D2:FILE1/ 

COPY D:FILENAME,P: 

COPY E;,P: 

COPY C:,D:FILENAME 

DUP D:FILENAME 

BOOT FILENAME.BAS 

GO 1536 

?E474 

?OOCB 

REBOOT 

CLICK 

STATUS 

BASIC 



F= LI r-i cnr i <=> r-i 

Lists commands. 

Locks FILENAME. 

Unlocks FILENAME. 

Deletes FILENAME. 

Renames FILE1 in drive 1. 

Displays directory of drive #n. 

Shows directory of last drive specified in DIR command. 

Formats disk in drive #n. Defaults to drive 1. 

Writes DOS.SYS to drive #n. Defaults to drive 1 . 

Writes MEM.SAV to drive #n. Defaults to drive 1. 

Saves memory between 1536 and 1664 (decimal) to FILENAME. 

Loads binary file FILENAME. 

Copies FILE1 from drive 1 to drive 4. 

Copies FILE1 from drive 1 to FILE2 on drive 2. 

Copies FILE1 from drive 1 and appends it to FILE1 already existing on drive 2 

Copies FILENAME to printer. 

Copies anything typed on the screen to the printer. 

Copies a cassette file to DiFILENAME. 

Duplicates FILENAME. 

Makes SAVEd BASIC program FILENAME.BAS run automatically when disk is booted 

Runs at decimal address 1536 (page six). 

Converts 4-digit hex number E474 to a decimal number (58484). 

The hex number MUST be four digits! This example pnnts 203. 

Reboots the computer. 

Toggles the keyclick on XL/XE computers. 

Shows current status described in article. 

Returns to cartridge. 
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1839 DflTft 2,169,34,141,41,2,169,10,141 
,26,2,76,85,33,173,243,4829 

1840 DflTfl 2,73,3,141,243,2,169,10,141, 
26,2,96,165,8,240,3,3659 
1850 DftTA 76,116,228,76,191,34,253,78, 
111,32,67,97,114,116,114,105,5966 
1860 DATA 100,103,191,33,155,162,0,169 
,9,157,66,3,169,86,157,68,4957 
1870 DflTft 3,169,34,157,69,3,169,15,157 
,72,3,169,0,157,73,3,2142 
1880 DftTft 32,86,228,76,85,33,162,16,16 
9,3,157,66,3,169,4,157,4004 
1890 DflTft 74,3,169,0,157,75,3,169,134, 
157,68,3,169,5,157,69,4371 
1900 DflTfl 3,32,86,228,32,200,21,76,85, 
33,160,7,185,128,5,201,5679 
1910 DATA 44,240,4,200,76,172,34,169,1 
55,153,128,5,200,162,0,185,8469 
1920 DATA 128,5,157,252,28,201,155,240 
,5,200,232,76,191,34,162,16,9042 
1930 DATA 169,3,157,66,3.169,4,157,74, 
3,169,0,157,75,3,169,3548 
1940 DATA 133,157,68,3,169,5,157,69,3, 
32,86,228,192,1,240,3,5316 
1950 DATA 76,216,32,160,255,200,185,25 
2,28,201,47,240,41,201,155,208,3639 
I960 DATA 244,162,2,35,253,35,32,169,3 
,157,66,3,169,8,157,74,3932 
1970 DATA 3,169,0,157,75,3,169,252,157 
,68,3,169,28,157,69,3,4330 
1980 DATA 32,86,228,192,1,240,45,76,21 
6,32,169,155,153,252,28,162,516 
1990 DATA 32,169,3,157,66,3,169,9,157, 
74,3,169,0,157,75,3,2185 
2000 DATA 169,252,157,68,3,169,28,157, 
69,3,32,86,228,192,1,240,7439 
2010 DATA 3,76,216,32,162,16,169,7,157 
,66,3,169,210,157,68,3,5216 
2020 DATA 169,48,157,69,3,169,128,157, 
72,3,169,9,157,73,3,32,2370 
2030 DATA 86,228,192,136,240,48,192,1, 
240,3,76,216,32,162,32,169,7970 
2040 DATA 11,157,66,3,169,210,157,68,3 
, 169, 48, 157, 69, 3,169, 128, 5974 
2050 DATA 157,72,3,169,0,157,73,3,32,8 
6,228,76,80,35,189,72,4598 
2060 DATA 3,133,203,189,73,3,133,204,1 
62,32,32,172,35,76,201,35,5928 
2070 DATA 169,11,157,66,3,169,210,157, 
68,3,169,48,157,69,3,165,5520 
2080 DATA 203,157,72,3,165,204,157,73, 
3,32,86,228,96,192,1,240,8377 
2090 DATA 3,76,216,32,162,16,169,12,15 
7,66,3,32,86,228,162,32,4948 
2100 DATA 169,12,157,66,3,32,86,228,76 
,244,35,78,105,108,101,32,4914 
2110 DATA 99,111,112,105,101,100,46,15 
5,162,0,169,9,157,66,3,169,4993 
2120 DATA 231,157,254,35,249,36,68,3,1 
69,35,157,69,3,169,13,157,5066 
2130 DATA 72,3,169,0,157,73,3,32,86,22 
8,76,85,33,76,58,36,2064 
2140 DATA 73,110,115,101,114,116,32,11 
5,111,117,114,99,101,32,100,105,5144 
2150 DATA 115,107,44,32,112,114,101,11 
5,115,32,82,69,84,85,82,78,3455 
2160 DATA 46,155,162,0,169,9,157,66,3, 
169, 24, 157, 68, 3, 169, 3613430 ' 
2170 DATA 157,69,3,169,34,157,72,3,169 
,0,157,73,3,32,86,228,4339 
2180 DATA 169,255,141,252,2,173,252,2, 
201,12,208,249,162,16,169,3,9236 
2190 DATA 157,66,3,169,4,157,74,3,169, 
0,157,75,3,169,132,157,5713 

l^??,"*?^** 68,3,169,5,157,69,3,32,86,22 
8,192,1,240,3,76,216,7213 
^H2 ?^TA 32,162,16,169,7,157,66,3,169 
,210,157,68,3,169,48,157,6554 
^?2? 55^5 62,3,169,96,157,72,3,169,234 
,157,73,3,32,86,228,192,8403 
^?T? ESJ'^.H^i?'*®'^' ^^'2^6,32,189, 72, 3 
,133,203,189,73,3,133,204,8438 
I 2240 DATA 162,16,169,12,157,66,3,32,86 



,228,76,235,36,73,110,115,6137 

2250 DATA 101,114,116,32,180,101,115,1 

16,105,110,97,116,105,111,110,32,5479 

2260 DATA lOO, 105> 115, 107, 44, 32, 112, 11 

4,101,115,115,32,82,69,84,85,3811 

2270 DATA 82,78,155,162,0,169,9,157,66 

,3,169,197,157,68,3,169,6543 

2280 DATA 36,157,250,36,245,37,69,3,16 

9,38,157,72,3,169,0,157,4887 

2290 DATA 73,3,32,86,228,169,255,141,2 

52,2,173,252,2,201,12,208,1439 

2300 DATA 249,162,16,169,3,157,66,3,16 

9,8,157,74,3,169,0,157,4173 

2310 DATA 75,3,169,132,157,68,3,169,5, 

157,69,3,32,86,228,162,6934 

2329 DATA 16,32,172,35,192,1,248,3,76, 

216,32,162,16,169,12,157,6132 

2339 DATA 66,3,32,86,228,76,98,37,68,1 
17,112,108,105,99,97,116,5792 

2340 DATA 105,111,110,32,99,111,109,11 
2,108,101,116,101,46,155,162,0,5613 
2350 DATA 169,9,157,66,3,169,76,157,68 
,3,169,37,157,69,3,169,4790 

2360 DATA 22,157,72,3,169,0,157,73,3,3 

2,86,228,76,85,33,173,4922 

2370 DATA 132,5,141,176,30,162,16,169, 

3,157,66,3,169,8,157,74,4432 

2380 DATA 3,169,0,157,75,3,169,175,157 

,68,3,169,30,157,69,3,4150 

2390 DATA 32,86,228,192,1,208,68,162,1 

6,169,12,157,66,3,32,86,3677 

2400 DATA 228,76,206,37,68,79,83,46,83 

,89,83,32,102,105,108,101,4275 

2410 DATA 32,119,114,105,116,116,101,1 

10,46,155,162,0,169,9,157,66,5785 

2420 DATA 3,169,184,157,68,3,169,37,15 

7,69,3,169,22,157,72,3,3554 

if^2,'*l2I'* ^69' 8*^57,73,3, 32, 86, 228, 76, 

85,33,76,216,32,173,132,6767 

2440 DATA 5,201,246,37,241,38,56,208,6 

8,76,28,38,67,97,110,39,3861 

2450 DATA 116,32,119,114,105,116,101,3 

2,77,69,77,46,83,65,86,32,2200 

2460 DATA 116,111,32,100,114,105,118,1 

01,32,56,33,155,162,0,169,9,3984 

2470 DATA 157,66,3,169,252,157,68,3,16 

9,37,157,69,3,169,32,157,5989- 

2480 DATA 72,3,169,0,157,73,3,32,86,22 

8,76,85,33,141,187,30,5163 

2490 DATA 162,16,169,3,157,66,3,169,8, 

157,74,3,169,0,157,75,4001 

?^f2 S'^IS l'i69, 186, 157, 68, 3, 169, 30, 15 

7,69,3,32,86,228,192,1,5534 

2510 DATA 208,102,162,16,169,11,157,66 

,3,169,210,157,68,3,169,48,6150 

2520 DATA 157,69,3,169,249,157,72,3,16 

9,21,157,73,3,32,86,228,5974 

2530 DATA 192,1,208,68,162,16,169,12,1 

57,66,3,32,86,228,76,167,6417 

o^^?„^'^TS»^®'''^'^^'^7'*6'83,65,86,32,l 

02,105,108,101,32,119,114,4247 

f !^2 ?^P„i05, 116, 116, 101, 110, 46, 155, 1 

62,0,169,9,157,66,3,169,145,6274 

2^5®. E^^** 157,68,3,159,38,157,69,3,169 

,22,157,72,3,169,0,157,4426 

?Pf,'^?IS 1^,3, 32, 86, 228, 76, 85, 33, 76, 2 

16,32,160,6,162,0,185,5966 

i^f L'*2IS 128' 5, 201, 44, 240, 8, 157, 252, 2 

8,200,232,76,207,38,169,155,1814 

^^'S^?^^** 157,252,28,162,0,200,185,128 

,5,201,44,240,8,157,11,29,5852 

2600 DATA 200,232,242,38,237,39,76,230 

,38,169,155,157,11,29,162,0,6533 

?«®,?S^2 200,185,128,5,157,18,29,201, 

155,240,5,200,232,76,253,38,1021 

2620 DATA 162,16,169,3,157,65,3,169,8, 

157,74,3,169,0,157,75,4131 ' 

2630 DATA 3,169,252,157,68,3,169,28,15 

7,69,3,32,86,228,162,16,5636 

l^4'',c2^So^?24^^'^^^'^^'^'^89,34,157,6 

8, 3> 169, 29, 157, 69, 3, 169, 4594 

2650 DATA 2,157,72,3,169,0,157,73,3,32 
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,73,157,72,3,169,8,157,5381 

3868 DATA 73,3,32,86,228,162,16,169,12 

,157,66,3,32,86,228,76,5851 

3878 DATA 85,33,162,8,169,11,157,66,3, 

169,247,157,68,3,169,41,6688 

3888 DATA 157,69,238,41,225,42,3,169,1 

47,157,72,3,169,1,157,73,6434 

3898 DATA 3,32,86,228,76,85,33,125,32, 

76,79,67,75,32,68,58,2548 

3188 DATA 182,185,188,181,118,97,189,1 

81,46,181,128,116,32,32,32,32,2835 

3118 DATA 32,32,68,73,82,118,155,32,85 

,78,76,79,67,75,32,68,2931 

3120 DATA 58,182,185,188,181,118,97,18 

9,181,46,101,128,116,32,32,32,3713 

3138 DATA 32,78,79,82,77,65,84,118,155 

,32,68,69,76,69,84,69,3719 

3148 DATA 32,68,58,182,185,108,181,118 

,97,189,181,46,181,128,116,32,5521 

3158 DATA 32,32,32,87,68,79,83,118,155 

,32,82,69,78,65,77,69,3593 

3168 DATA 32,68,58,111,108,188,44,118, 

181,119,32,32,32,32,32,32,965 

3178 DATA 32,32,32,87,77,69,77,118,155 

,32,66,83,65,86,69,32,2961 

3188 DATA 68,58,182,185,188,181,44,98, 

101,183,185,118,44,181,118,108,5978 

3198 DATA 32,32,32,82,69,66,79,79,84,1 

55,32,66,76,79,65,68,3243 

3208 DATA 32,58,58,102,185,188,181,118 

,97,189,181,45,181,128,116,32,5581 

3218 DATA 32,32,32,32,71,79,32,97,108, 

188,114,155,32,67,79,88,4192 

3228 DATA 89,32,68,58,182,185,188,181, 

49,44,68,50,58,182,105,188,4227 

3230 DATA 101,50,91,47,93,32,66,65,83, 

73,67,155,32,68,85,88,3528 

3240 DATA 32,68,226,42,221,43,58,102,1 

05,108,181,110,97,109,101,46,6333 

3250 DATA 101,120,116,32,32,32,32,32,3 

2,32,83,84,65,84,85,83,2052 

3268 DATA 155,32,66,79,79,84,32,182,10 

5,108,101,110,97,109,101,46,5426 

3270 DATA 101,120,116,32,32,32,32,32,3 

2,32,32,67,76,73,67,75,898 

3288 DATA 155,32,63,184,120,118,189,32 

,32,32,32,32,32,32,32,32,9583 

3290 DATA 32,32,32,32,32,32,32,32,32,3 

2,32,72,69,76,80,155,1907 

3300 DATA 155,110,61,100,114,105,118,1 

01,32,110,117,109,98,101,114,32,5985 

3310 DATA 40,49,45,56,41,155,104,120,1 

10,109,32,61,32,52,45,100,3213 

3320 DATA 105,103,105,116,32,104,101,1 

20,32,110,117,109,98,181,114,155,7722 

3338 DATA 65,108,188,32,105,110,112,11 

7,116,32,77,85,83,84,32,98,4502 

3340 DATA 101,32,105,110,32,100,101,99 

,105,109,97,108,46,155,169,131,8316 

3350 DATA 133,243,169,5,133,244,169,0, 

133,242,32,0,216,32,210,217,1655 

3360 DATA 108,212,0,162,0,159,11,157,6 

6,3,169,197,157,68,3,169,7476 

3370 DATA 30,157,69,3,169,14,157,72,3, 

169,0,157,73,3,32,86,2985 

3380 DATA 228,173,121,7,201,88,240,39, 

76,202,43,79,78,155,162,8,7561 

3390 DATA 169,9,157,66,3,169,199,157,6 

8,3,169,43,157,69,3,169,6763 

3480 DATA 3,157,222,43,217,44,72,3,169 

,0,157,73,3,32,86,228,5981 

3410 DATA 76,16,44,76,242,43,79,70,70, 

155,162,0,169,9,157,66,6231 

3420 DATA 3,169,238,157,68,3,169,43,15 

7,69,3,169,4,157,72,3,4538 

3430 DATA 169,0,157,73,3,32,86,228,162 

,0,169,11,157,66,3,169,6158 

3440 DATA 211,157,68,3,169,30,157,69,3 

,169,15,157,72,3,169,0,4136 

3450 DATA 157,73,3,32,86,228,173,18,7, 
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41, i, 249, 5, 169, 49, 32, 4021 

3466 DftTft 236,44,173,19,7,41,2,240,5,1 

69,50,32,236,44,173,10,5666 

3470 DATA 7,41,4,240,5,169,51,32,236,4 

4,173,10,7,41,8,240,5395 

3480 DftTft 5,169,52,32,236,44,173,10,7, 

41,128,240,5,169,56,32,5386 

3490 DATA 236,44,76,110,44,155,162,0,1 

69,9,157,66,3,169,109,157,7448 

3500 DATA 68,3,169,44,157,69,3,169,1,1 

57,72,3,169,0,157,73,4956 

3510 DATA 3,32,86,228,162,0,169,11,157 

,66,3,169,226,157,68,3,7166 

3520 DATA 169,30,157,69,3,169,54,157,7 

2,3,169,0,157,73,3,32,3316 

3530 DATA 86,228,173,9,7,133,212,169,0 

, 133, 213, 32, 170, 217, 32, 230, 1761 

3540 DATA 216,160,255,200,185,128,5,16 

,250,41,127,153,128,5,169,155,139 

3550 DATA 153,129,5,162,0,169,9,157,66 

,3,169,128,157,68,3,169,6718 

3560 DATA 5,157,218,44,213,45,69,3,169 

,255,157,72,3,169,0,157,8130 

3570 DATA 73,3,32,86,228,76,14,45,141, 

26,29,162,0,169,11,157,4978 

3580 DATA 66,3,169,26,157,68,3,169,29, 

157,69,3,169,2,157,72,5187 

3590 DATA 3,169,0,157,73,3,32,86,228,9 

6,76,18,45,155,162,0,5103 

3600 DATA 169,9,157,66,3,169,17,157,68 

,3,169,45,157,69,3,169,5723 

3610 DATA 1,157,72,3,169,0,157,73,3,32 

,86,228,76,85,45,84,4907 

3620 DATA 111,103,103,108,101,32,87,11 

4,105,116,101,32,86,101,114,105,6418 

3630 DATA 102,121,32,111,110,47,111,10 

2,102,32,40,89,47,78,41,63,3011 

3640 DATA 155,162,0,169,9,157,66,3,169 

,51,157,68,3,169,45,157,6434 

3650 DATA 69,3,169,34,157,72,3,169,0,1 

57,73,3,32,86,228,162,6999 

3660 DATA 0,169,5,157,66,3,169,252,157 

,68,3,169,28,157,69,3,5987 

3670 DATA 169,255,157,72,3,169,0,157,7 

3,3,32,86,228,173,252,28,9078 

3680 DATA 201,89,240,10,201,155,208,3, 

76,85,33,76,170,45,173,121,8414 

?^?L'^2I'* 7,73,7,141,121,7,76,201,45,6 

7,104,97,110,103,101,32,5497 

3700 DATA 97,99,116,105,118,101,32,100 

,114,105,118,101,115,32,40,89,5536 

3710 DATA 47,78,41,63,155,162,0,169,9, 

157,66,3,169,173,157,68,7862 

3720 DATA 3,169,214,45,209,46,45,157,6 

9,3,169,28,157,72,3,169,6419 

3730 DATA 0,157,73,3,32,86,228,162,0,1 

69,5,157,66,3,169,252,8939 

3740 DATA 157,68,3,169,28,157,69,3,169 

,255,157,72,3,169,0,157,7886 

3750 DATA 73,3,32,86,228,173,252,28,20 

1,89,240,10,201,155,208,3,1845 

3760 DATA 76,85,33,76,63,47,76,95,46,8 

4,121,112,101,32,116,104,5392 

3770 DATA 101,32,100,114,105,118,101,3 

2,110,117,109,98,101,114,115,44,6760 

i^^S,"*?!? ?2, 111, 118, 101, 32, 97, 116, 32, 

97,32,116,105,109,101,44,112,5590 

IP^^^'^^'* 114,101,115,115,105,110,103, 

32,82,69,84,85,82,78,32,97,4635 

3800 DATA 102,116,101,114,32,101,97,99 

,104,32,111,110,101,46,155,162,7801 

i!^2 ??!'* 8,169,9,157,66,3,169,25,157, 

68,3,169,46,157,69,3,4567 

^I^L'*5P,i5'4^®'^^7'72,3,169,0,157,73 

,3,32,86,228,76,158,46,6378 

3830 DATA 69,110,116,101,114,32,48,32, 

iifi^Sli^^^' ^^®' ^2, 121, 111, 117, 6414 

3840 DATA 39,114,101,32,102,105,110,10 

5,115,104,101,100,46,155,162,0,6872 

3850 DATA 169,9,157,66,3,169,128,157,6 



8,3,169,46,157,69,3,169,6762 

3860 DATA 30,157,72,3,169,0,157,73,3,3 

2,86,228,169,0,141,25,5701 

3870 DATA 29,162,0,169,5,157,66,3,169, 

252,157,68,3,169,28,157,8273 

3880 DATA 69,3,210,46,205,47,169,255,1 

57,72,3,169,0,157,73,3,6834 

3890 DATA 32,86,228,173,252,28,281,48, 

240,83,201,49,240,19,201,50,1679 

3900 DATA 240,27,201,51,240,35,201,52, 

240,43,201,56,240,51,76,57,9593 

3910 DATA 47,169,1,24,109,25,29,141,25 

,29,76,193,46,169,2,24,3465 

3920 DATA 109,25,29,141,25,29,76,193,4 

6,169,4,24,109,^5,29,141,3999 

3930 DATA 25,29,76,193,46,169,8,24,109 

,25,29,141,25,29,76,193,4706 

3940 DATA 46,169,128,24,109,25,29,141, 

25,29,76,193,46,173,25,29,4356 

3950 DATA 141,10,7,76,125,47,67,104,97 

,110,103,101,32,110,117,109,6417 

3960 DATA 98,101,114,32,111,102,32,102 

,105,108,101,115,32,116,104,97,6605 

3970 DATA 116,32,99,97,110,32,98,101,3 

2,32,32,32,111,112,101,110,4701 

3980 DATA 32,115,105,109,117,108,116,9 

7,110,101,111,117,115,108,121,63,8269 

3990 DATA 155,162,0,169,9,157,66,3,169 

,66,157,68,3,169,47,157,6964 

4000 DATA 69,3,169,59,157,72,3,169,0,1 

57,73,3,32,86,228,162,7449 

*H^,^^l'* 0,169,5,157,66,3,169,252,157 

,68,3,169,28,157,69,3,6337 

i^^^,^^l^ 169,255,157,72,3,169,0,157,7 

3,3,32,86,228,173,252,28,9428 

4030 DATA 201,89,240,3,76,85,33,76,252 

,47,72,111,119,32,109,97,6914 

*?i2 ?5I'*. if ®' ^21, 206, 47, 201, 48, 32, 102 

,105,108,101,115,32,100,111,32,6040 

4050 DATA 121,111,117,32,119,97,110,11 

6,32,111,112,101,110,32,97,116,6778 

f?^?o^'*TS«^2'"'^2,32,lll,ilO,ioi,32,l 

16,105,109,101,32,40,49,45,3494 

4070 DATA 55,41,63,155,162,0,169,9,157 

,66,3,169,198,157,68,3,7055 

4080 DATA 169,47,157,69,3,169,54,157,7 

2,3,169,0,157,73,3,32,3910 

f2l®,^5^?^2^'22^'^^2,0,169,5,157,66,3, 

169,252,157,68,3,169,28,7902 

4100 DATA 157,69,3,169,255,157,72,3,16 

9,0,157,73,3,32,86,228,7374 

li^LS''P.iS''2S2,133,243,169,28,133,2 

lfAi^2l2'^^^'2*2,32,0,216,32,lO6 

i^T ?5TA 210,217,165,212,141,9,7,76,8 

5,33,173,219,2,73,255,141,278 

fi^^.S'^TS 219,2,76,85,33,173,129,5,32, 

192,48,133,206,173,130,5,8529 

4140 DATA 32,192,48,133,205,32,200,48, 

i?iA4^^"'^^^'5i32,192,48 9196 ' 

fi5®->K6T'* 133,206,173,132,5,32,192,48, 

i",205,32,200, 48,133,212 32,9864 

oi^?»^'*T5o^2«'2^^'^2,230,216,16O,255,2 

5?4i^^ii2^'^'^^'250,41,127,153,2574 

4170 DATA 128,5,169,155,153,129,5,162, 

0,169,9,157,66,3,169,128,7461 

4180 DATA 157,68,3,169,5,157,69,3,169, 

255,157,72,3,169,0,157,8211 ' ' ' '' 

tt'?o'*?IS 72' 3, 32, 86, 228, 76, 85, 33, 56, 2 

33,48,170,189,109,29,96,8520 

f^®?„'^S^'' i65, 206, 202, 48, 209, 48, 10, 10, 

10,10,24,101,205,96,224,2,6125 

*l^t S'^TA 225,2,179,33,0,6,0,0,0,0,0,0 
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58 ;Created using MAC/65 Macros 

68 ; and another one, POKE. 

78 .INCLUDE «D : SY5EQU .M65 

88 LBUFF = $8588 

98 PTR = SCB 

8188 AFP = $0888 

8110 F5UB = SDfl68 

8128 FPI = $D9D2 

8138 FR8 = SD4 

8148 FRl = SEe 

0158 INBUFF = SF3 

8160 CIX = $F2 

0170 IFP = SD9ftfl 

8188 FASC = SD8E6 

0190 FMOUE = SDDB6 

0280 TRAM5Z = $08 

0210 RE5ETU = SE474 

0228 REBOOT = $E477 

0230 RftMTOP = $6fl 

0248 DOSLOAD = $15C8 

8258 LOLEN = $CB 

0260 HILEN = $CC 

8278 DRVBYT = $8780 

0280 MUERIFY = $8779 

8298 5ABYTE = $8789 

0388 P0KM5K = $18 

0310 IRQEN = $D2eE 

0320 C0N50L = $D81F 

8338 CDTMU2 = $821A 

8348 CDTMA2 = $8228 

8358 CHACT = $82F3 

8368 NOCLIK = $82DB 

8378 COLORl = $82C5 

0388 C0L0R2 = $02C6 

0398 FINE = $026E 

8408 LOBYTE = SCD 

8410 HIBYTE = $CE 

0420 *= $1CFC 

8438 CBUFF 

0448 »= »+15 

0450 NIBUFF 

8468 »= »+7 

8478 N2BUFF 

8488 »= **7 

0490 DRNUM 

0500 *= »+l 

0510 BUFF2 

0528 .BYTE "1 " 

8538 INIDAT ; Run address data 

8548 .BYTE 224,2,225,2 

0558 RUNDAT 

8568 .BYTE 0,8 

8578 NNH 

8588 .BYTE 255,255 

0590 PROG ,„„ ^ 

0600 .BYTE 255,255,128,6,188,6 

0618 .BYTE 169,2,133,84,162,8 

0620 .BYTE 169,9,157,66,3,169 

0630 .BYTE 170,157,68,3,169,6 

0640 .BYTE 157,69,3,169,1,157 

0650 .BYTE 72,3,157,73,3,32 

0660 .BYTE 86,228,169,0,133,84 

0670 .BYTE 169,12,141,252,2,96 

0680 .BYTE 82,85,78,34,68,58 



0690 FILEDAT 



8708 

8718 

8728 

8738 HEX 

0740 

8741 

8742 

0750 CHECK 



.BYTE 0,0,0,8,0,0 

.BYTE 0,8,46,8,8,8 

.BYTE 155,224,2,225,2,128,6 

.BYTE 8,1,2,3,4,5,6,7,8,9,8 

.BYTE 8,8,0,8,0,0,10,11,12 

.BYTE 13,14,15 



0760 
0770 



LDY »0 
LDX »8 



8788 CMPLOOP 



8798 
0888 
0818 
8820 
8838 



LDA TAB,Y 
CMP «EOL 
BEQ GOTCOM 



;End Of coHHand? 

„^„ ;Yes! 

CMP LBUFF, X ;Ho, coMpare next 
BNE FINDEHD ;branch FINDEND 



8848 

8858 

8868 

8878 

8888 

8881 

8882 

8898 

0900 

8918 

8928 

8938 

and? 

8948 

8958 

8968 

8978 

8988 

8990 

1000 

1018 

1828 

1821 

1838 

1040 

1050 

1060 

1878 

rted! 

1888 

1898 

1188 

1118 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1258 

1260 

1270 

1280 

1298 

1388 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1428 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1598 



INK 
INY 
JMP CMPLOOP 

COMMands are not the sane so 
far, so we Must Move to next 
coMMand . 



FINDEND 
INY 

LDA TAB,Y 
CMP ttEOL 



;End of next comm 



BNE FINDEND ;No, do it again 

INY ;5kip over 

INY 

INY 

LDA TAB,Y 

CMP «255 ;End reached? 

BEQ ENDTAB 

;Not end of table, so reset X-reg 
;and Jump back to CMPLOOP 

LDX ttO 
JMP CMPLOOP 
ENDTAB 

PRINT 0,"BCoMMand not suppo 

■ I 

JMP MAINLOOP 
GOTCOM 

;Goes here if a coMMand is found. 

LDA TAB+1,Y 
STA PTR 
LDA TAB+2,Y 
STA PTR+1 
JMP (PTR) 

This is the coMMand table. The 

foTMat is: 

.BYTE "COMMAND", EOL 

.HORD COMMAND 

A 255 Should be placed at the 
end of the table. 



TAB 



.BYTE "FORMAT", EOL 

.MORD FORMAT 

.BYTE "LOCK", EOL 

.NORD LOCK 

.BYTE "UNLOCK", EOL 

.HORD UNLOCK 

.BYTE "DELETE", EOL 

.HORD DELETE 

.BYTE "RENAME", EOL 

.HORD RENAME 

.BYTE "DIR",EOL 

.HORD DIR 

.BYTE "BASIC", EOL 

.HORD BASIC 

.BYTE "REBOOT", EOL 

.HORD REBOOT 

.BYTE "BLOAD",EOL 

.HORD BLOAD 

.BYTE "COPY", EOL 

•HORD COPY 

.BYTE "DUP",EOL 

.HORD DUPLICATE 

.BYTE "HD05",E0L 

.HORD HDOS 

.BYTE "HMEM",EOL 

.HORD HMEM 

.BYTE "BSAUE",EOL 

.HORD BSAUE 

.BYTE "BOOT", EOL 

.HORD BOOT 

.BYTE "HELP", EOL 

.HORD HELP 
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1608 .BYTE "GO'SEOL 

1618 .MORD GO 

1628 .BYTE "STftTUS", EOL 

1638 .MORD STATUS 

1640 .BYTE "CLICK", EOL 

1658 .MORD CLICK 

1668 .BYTE "?",EOL 

1678 .WORD HEXDEC 

1688 .BYTE 255 J End Of table 

1690 FMTFILE 

1788 .BYTE "D1:",E0L 

1718 DIRFILE 

1720 .BYTE "Dl:».»",EOL 

1730 DIRMSG 

1740 .BYTE 

1741 .BYTE EOL 
1750 DOSSYS 

1760 .BYTE "Dl:l>0S.5YS",E0L 
1770 MEMSftU 
1780 .BYTE 
1790 MUERMSG 

1888 .BYTE "Write Verify: 
1818 DRIUEMSG 



'Directory - Drive ttl" 



"Dl:MEM.5ftU",E0L 



"Active Drives: 



.BYTE "MaxiHUM tt of files th" 
.BYTE "at can be open siMu" 
.BYTE "Itaneously: " 



1828 .BYTE 
1838 MAXFILES 
1848 
1841 
1842 

1858 FORMAT 
1868 LDA LBUFF+6 
1878 CMP tt'8 
1888 BNE OKFMT 

1898 PRINT 0, "Can't fornat drive 
8 frOH C0M-D05!" 



1988 



JMP MAINLOOP 



1918 OKFMT 

1928 STA FMTFILE+1 

1938 XIO 254, 1,8,9, FMTFILE 

1948 CPY ttl 

1950 BNE FMTERR 

1960 JMP MAINLOOP 



1970 FMTERR 



1980 

1998 LOCK 

2008 

2010 

2020 

2030 



JMP ERROR 



XIO 35,l,0,8,LBUFF+5 

CPY ttl 

BNE LCKERR 

JMP MAINLOOP 
2040 LCKERR 
2050 JMP ERROR 
2068 UNLOCK 

2070 XIO 36,l,0,O,LBUFF+7 
2080 CPY ttl 
2090 BNE UNLERR 
2100 JMP MAINLOOP 
2110 UNLERR 



2120 



JMP ERROR 



2130 DELETE 

2140 XIO 33,l,0,O,LBUFF+7 

2150 CPY ttl 

2160 BNE DELERR 

2170 JMP MAINLOOP 



2180 DELERR 



2190 



JMP ERROR 



2200 RENAME 

2210 KIO 32,l,0,0,LBUFF+7 

2220 CPY ttl 

2230 BNE RENERR 

2240 JMP MAINLOOP 

2250 RENERR 

2260 JMP ERROR 

2270 DIR 

2280 LDA LBUFF+3 

2290 CMP ttEOL 

2300 BEQ GETDIR 

2310 STA DIRFILE+1 

2320 STA DIRMSG+19 

2330 GETDIR 

2340 OPEN 1,6,0, DIRFILE 

2350 CPY ttl 

2360 BEQ SDIRLOOP 



2370 


JMP ERROR 


2380 


SDIRLOOP 


2398 


PRINT 0, DIRMSG 


2400 


DIRLOOP 


2410 


INPUT 1,LBUFF 


2420 


CPY ttl36 


2430 


BEQ DIRDONE 


2440 


CPY ttl 


2450 


BEQ PRINTIT 


2460 


JMP ERROR 


2470 


PRINTIT 


2480 


PRINT O.LBUFF 


2490 


JMP DIRLOOP 


2500 


OIRDONE 


2510 


CLOSE 1 


2520 


JMP MAINLOOP 


2530 


ERROR 


2548 


STY FRO ; Store error 


2558 


;Now close lOCB's 1 & 2 


2560 


CLOSE 1 


2570 


CLOSE 2 


2580 


LDA ttO ;Clear hi byte 


2590 


STA FR0+1 


2600 


JSR IFP 


2610 




2620 


Error code now in FP forHat, 


2630 


stored at FRO. 


2640 




2650 


JSR FftSC 


2660 




2670 


Error code now in ATASCII fornat 


2680 


in LBUFF. 


2690 




2700 


Now find end of string, add 


2710 


carriage return. 


2720 




2730 


LDY ttSFF 


2740 ELOOP 


2750 


INY 


2760 


LDA LBUFF, V 


2770 


BPL ELOOP 


2780 


AND ttS7F ;Un-invert char. 


2790 


STA LBUFF, V 


2800 


LDA ttEOL 


2810 


STA LBUFF+1,Y ; Store EOL 


2820 ; 




2830 ; 


Now in ATASCII fornat in LBUFF 


2840 ; 


with EOL at end of it. 


2850 ; 




2860 


BPUT 0, ERRMSG, 12 


2870 


PRINT 0, LBUFF 


2880 


JMP MAINLOOP 


2890 ; 




2900 ; 




2910 ; 




2920 ERRMSG 


2930 


.BYTE "I/O Error - " 


2940 ; 




2950 ; 




2960 ; 




2970 MAINLOOP 


2980 


LDA tt2e2 


2990 


STA COLORl 


3000 


LDA tt240 


3010 


STA COL0R2 


3020 


BPUT 0, EMSG, 16 


3030 


POKE 764,255 


3040 


INPUT 0, LBUFF 


3050 


JMP CHECK 


3060 EMSG 


3070 


.BYTE EOL, "Enter coMMand:" 


3071 


.BYTE EOL 


3080 ; 




3090 ; 




3100 ; 




3110 BEGIN 


3120 


LDA tt255 


3130 


STA FINE 


3135 ; 


DO I/O to enable fine scrolling 
OPEN 6,8,0,"E:" 


3140 


3150 


PRINT 0,"NCOM-DOS Uer. 
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TVL-IZ) 





3.1 


82 


/ee/Be" 


3168 


LDA 


POKMSK 


317B 


AND 


»$7F 


3180 


STfl 


POKMSK 


3198 


STft 


IRQEN 


3280 


LDA 


tt <UBROUT 


3210 


5Tft 


CDTMA2 


3228 


LDA 


» >UBROUT 


3238 


5Tft 


CDTMA2+1 


3248 


LDA 


»10 


3258 


STft 


CDTMy2 


3268 


J MP 


MAINLOOP 


3270 


UBROUT 




3280 


LDA 


CHACT 


3290 


EOR 


tt$e3 


3388 


5TA 


CHACT 


3310 


LDA 


ttl8 


3320 


5TA 


CDTMVZ 


3330 


RTS 




3348 






3358 






3368 






3378 


BASIC 




3388 


LDA 


TRAMSZ 


3398 


BEQ 


NOBAS 


3488 


J MP 


RESETU 


3418 


N0BA5 




3428 


PRINT 0,"HMo Cartridge!" 


3438 


J MP 


MAINLOOP 


3448 


BLOAD 




3450 


OPEN l,4,8|LBUFF+6 


3460 


J5R 


DOSLOAD 


3470 


J MP 


MAINLOOP 


3488 


/ 




3498 


i 




3580 


COPY 




3510 


iForMaf 


COPY Dl:file,D2:FILE2 


3528 


LDY 


»7 


3538 


CLOOP 




3548 


LDA 


LBUFF,Y 


3558 


CMP 


»', 


3568 


BEQ 


FNDCOMMA 


3570 


IMY 




3580 


J MP 


CLOOP 


3590 


FNDCOMMA 


3680 


LDA 


ttEOL 


3610 


5TA 


LBUFF,Y 


3628 


INY 




3630 


LDX 


ttO 


3648 


CL00P2 




3650 


LDA 


LBUFF,Y 


3668 


5TA 


CBUFF,X 


3670 


CMP 


ttEOL 


3680 


BEQ 


MOUEDONE 


3690 


INY 




3700 


INX 




3710 


J MP 


CL00P2 


3720 


MOUEDONE ^^^ 


3730 


OPEN l,4,0,LBUFF+5 


3740 


CPY 


ttl 


3750 


BEQ 


FR5T0K 


3760 


J MP 


ERROR 


3770 


FR5T0K 




3780 


LDY 


ttSFF 


3790 


5LL00P 




3800 


INY 




3810 


LDA 


CBUFF,Y 


3820 


CMP 


tt'/ jAppend? 


3830 


BEQ 


APPENDIT 


3840 


CMP 


ttEOL 


3850 


BNE 


SLLOOP 


3860 


OPEN 2,8,0,CBUFF 


3870 


CPY 


ttl 


3880 


BEQ 


5CND0K 


3898 


J MP 


ERROR 


3900 


APPENDIX 


3910 


LDA 


ttEOL 


3920 


5TA 


CBUFF,Y 
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3930 OPEN 2,9,e,CBUFF 

3940 CPY ttl 

3950 BEQ SCNDOK 

3968 JMP ERROR 

3978 SCNDOK 

3980 BGET 1, ENDCOMDOS, 128 

3990 CPY ttl36 

4088 BEQ ITSOK 

4810 CPY ttl 

4028 BEQ PUT128 

4838 JMP ERROR 

4048 PUT128 

4058 BPUT 2, ENDCOMDOS, 128 

4060 JMP SCNDOK 

4070 ITSOK 

4688 LDA ICBLEN,X 

4890 STA LOLEN 

4100 LDA ICBLEN+1,X 

4110 STA HILEM 

4120 LDX tt$20 

4138 JSR PUTBYTE5 

4140 JMP CONTCOPY 

4150 PUTBYTES 

4160 LDA ttCPBINR 

4170 STA ICCOM,X 

4180 LDA tt <ENDCOMDOS 

4198 STA ICBADR,X 

4200 LDA » >ENDCOMDOS 

4210 STA ICBADR+1,X 

4220 LDA LOLEN 

4230 STA ICBLEN,X 

4240 LDA HILEN 

4250 STA ICBLEN+1,X 

4260 JSR CIO 

4278 RTS 

4280 CONTCOPY 

4290 CPY ttl 

4300 BEQ ITS0K2 

4310 JMP ERROR 

4320 ITS0K2 

4330 CLOSE 1 

4340 CLOSE 2 . ^ „ 

4358 PRINT 8, "File copied." 

4360 JMP MAINLOOP 

4370 ; 

4380 ;DUPLICATE - Mill duplicate the 

4390 ;file specified after coM«and. 

4480 ; 

4410 DUPLICATE ^. , 

4420 PRINT e, "Insert source disk 

, press RETURN." 

4430 POKE 764,255 

4440 DGLOOP 

4450 LDA 764 

4468 CMP ni2 

4470 BNE DGLOOP 

4480 OPEN l,4,0,LBUFF+4 

4498 CPY ttl 

4500 BEQ DUPOK 

4510 JMP ERROR 

4520 DUPOK 

4530 BGET 1, ENDCOMDOS, 60000 

4540 CPY ttl36 

4550 BEQ DUP0K2 

4560 JMP ERROR 

4570 DUP0K2 

4580 LDA ICBLEN,X 

4590 STA LOLEN 

4600 LDA ICBLEN+1,X 

4618 STA HILEN 

4620 CLOSE 1 ^. ^. 

4630 PRINT 0, "insert destination 

disk, press RETURN" 
4640 POKE 764,255 
4650 GETLOOP 
4660 LDA 764 

Mil §NE GETLOOP (Continued on page 68) 
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esselations may be 
an unfamiliar word, 
but you see them every day. 
They appear in the arrange- 
ments of bathroom tiles, 
linoleum patterns, parquet 
floors, or fabrics, just to name a 
few common places where they 
are found. A tesselation is the 
complete covering of a flat sur- 
face by one or more figures in a 
pattern where there are no 
overlapping of the figures and no 
open spaces. For many years 
tesselations were studied main- 
ly by mathematicians. However, 
since the publication of Martin 
Gardner's '^Mathematical 
Games" columns in Scientific 
American that were devoted to 
tiling, tesselations have become 
a pastime for people from all 
walks of life. 



Most of us are familiar with portions 
of M. C. Escher's work from posters, 
calendars and jigsaw puzzles. He is one 
of the most famous graphic artists 
whose work includes some extremely 
intricate tesselations. In the commen- 
tary accompanying his book, The 
Graphic Work ofM. C. Escher, Escher 
said that "the regular division of the 
plane ... is the richest source of inspi- 
ration that I have ever struck; nor has 
it yet dried up." His original inspiration 
came from a study of the work of the 
Moors, particularly in the Alhambra in 
Spain, where the floors and walls were 
decorated with abstract geometrical til- 
ings. Escher was first and foremost an 
artist, with no formal training in 
mathematics. Yet as he worked he 
found that he often had "more in com- 
mon with mathematicians than with my 
feUow artists." This of course can be at- 
tributed to the fact that his works often 
exhibit symmetries of design that tend 



The regular division of the 
Jli\m,,Js the richest source of 
inspbtion that I liBve ever 



struck, 



to be more often studied by scientists 
than by artists. 

In this article we will discuss some 
basic concepts and present several pro- 
grams that will allow you to experiment 
with plane tesselations on your com- 
puter. In other words, with these pro- 
grams you can build a graphic compo- 
sition around a geometrical theme. 
Since Escher was not bound by religious 
taboos as the Moors were, many of his 
tesselations often make use of two or 
more living figures carefully designed 
to interlock in such a way that they will 
tile a flat surface. Here our goal will be 
more modest - we'll work with 
polygons. 

Of the regular polygons (geometric 
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figures with all sides the same length)— 
only three, the equilateral triangle, 
square, and regular hexagon— can be 
used to make a tesselation. However, if 
we drop the requirement that the poly- 
gons must be regular, then the possibil- 
ities increase enormously. There is, in 
fact, an infinite number of irregular 
polygons that will tesselate. For exam- 
ple, take any triangle: 




Figure 1 is tiie output from the 
program in Listing 2 which tiles 
a surface using triangles. Simi- 
larly, any quadrilateral, no mat- 
ter whether it's convex (all an- 
gles less than 180): 



Flip it about one side and mate 
a pair 



or not convex: 




The resulting quadrilateral-like 
figure will tile a plane surface. 
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can tile the plane. This idea is 
similar to what we did with the 
triangle. 



I=li|:> 



.ncd nr-i^^^" 



But now when each row of 
figures is drawn, we have to in- 
troduce a new flip. Figure 2, the 
output from the program in List- 
ing 3, illustrates this. 
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The purpose of the program in List- 
ing 1 is to illustrate the essential con- 
cept of all subsequent tiling programs 
in as simple and direct a manner as pos- 
sible. Listing 1 covers a full Graphics 8 
screen with 897 squares. The question 
that immediately presents itself when 
you start to write such a program is 
"How shall we efficiently represent 897 
squares in a program?" Constructing 
the program by drawing horizontal and 
vertical lines will of course work, but 
our objective is a procedure for gener- 
ating tilings with arbitrary shapes. Do 
we have to include data numbers for the 
coordinates of each corner? (A little 
arithmetic shows that at the minimum 
we would need 897 points.) No; the idea 
is much simpler. Instead of drawing 
897 different squares, we draw the 
"same" square 897 times. The way to 
do this is to imagine that our square is 
drawn on an X/Y coordinate system, 
which we'll call our "Local Coordinate 
System" (LCS): 



Now, imagine that we position 
the LCS on the screen so that 
the square fits into the upper 
left-hand corner and we draw it 
in. Then we shift the center of 
the LCS to the right a distance 
equal to the square's width and 
draw another square. Continu- 
ing on in this way we soon have 
a row of squares across the 
screen. When the first row is 
complete, we start a second 
row by repositioning the LCS 
center back at the left and down 
an amount equal to the 
square's height. Repeating 
these steps soon fills in the 
whole computer screen. 

In order to implement these ideas as 
a program we need three parts: 

• Two FOR-NEXT loops to 
move the local coordinate sys- 
tem's center. 

• A routine to convert the po- 
sition of the LCS's center and 
the square's coordinate data 
into CRT screen coordinates. 

• A sequence of drawing 
commands. 



c 




^ 


















c 


:> 


> 


=v^ 



The coordinates of the ver- 
tices (corners) A, B, C, D in the 
LCS are all the data we'll need. 



Listing 1 is short enough that each of 
these parts is easily recognized. The 
square's coordinate data is in line 50. 
These data numbers are read and used 
by the screen coordinate subroutine in 
lines 260 - 290. Notice that the coor- 
dinates of point A (4, -4) appear twice 
in the data: at the beginning and at the 
end. This is necessary in order to close 
up the leftmost column of squares. Also 
note that we started drawing at the 
lower right-hand corner and drew the 
square in a counterclockwise direction. 
Following this convention allows us to 
use the XIO command to fill in later 
tilings. It would be a good idea to take 
a minute and read through Listing 1 
before going on to consider Listings 2 
and 3. 

Although Listing 2 and Listing 
3 are longer and a little more 
complicated than Listing 1 the 
basic procedure is the same. 
The programs are longer be- 
cause the fundamental title has 
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to be drawn in several different 
positions. For example, Listing 
2, which tiles the plane in trian- 
gles, first draws a triangle like 
this 



same size and shape next to it 
like this 



lines 190 and 200. The graph- 
ics portion of the program is in 



(- I 2^,-S) 



CO,s) 



C- i 




CO,-s> 



and then puts another of the 



and fills it in with color using the 
XIO command in line 250. Each 
triangle is treated as a separate 
set of data. To control which tri- 
angle is drawn, a flag is set in 
line 110 or 130 and tested in 



lines 60 to 320. 

Listing 3 is even more am- 
bitious because it makes a 
tesselation using a quadrilateral 
as shown: 




F^<=>>^v^ 
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Examining the quadrilaterals 1 
through 4, we see that they're mated 
in pairs to form a hexagon. Since a 
hexagon formed from a pair of the 
quadrilaterals is irregular, we need to 
complete the tiling in alternate rows. 
These alternating rows are slightly 
shifted mirror images of each other. 
As with the triangular tiling, each 
quadrilateral is treated as separate 
data. In Listing 3 which dataset is read 
is determined by testing FLAG and 
ROW in lines 480 - 510. Because the 
rows are shifted with respect to each 
other, the drawing control loop in lines 
160-320 is slightly more complex 
than in the two previous programs in 



that we can no longer use FOR-NEXT 
loops. However, the basic drawing 
procedure is the same. 

By using the ideas we have present- 
ed here you could investigate geomet- 
ric forms and relationships, explore 
patterns, or discover the geometric 
principles of symmetry, rotation, 
reflection and congruence. On the 
other hand, you can experiment with 
tesselations just for the tile of it! And 
next month we'll be back to explore 
this fascinating subject even further. 
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QZ 10 REM »»K» TE5SELflTI0H PROGRAM »1 **K 

* 

IR 29 REM IHHHJ SQUARE TILES **** 

OX 38 REM **** BY ALLAN MOOSE AND MARIAN 

LORENZ Hint* 
RU 40 GRAPHICS 24 : COLOR 1 
Qk 50 DATA 4,-4,4,4,-4,4,-4,-4,4,-4 
YQ 60 REM ««* DRAWING CONTROL LOOP »«w 
RT 70 FOR YCENTR=4 TO 186 STEP 8 
LR 80 FOR KCENTRZ4 TO 314 STEP 8 
KM 90 RESTORE 50 
TR 100 GOSUB 260 
WG 110 PLOT SCRNX,5CRNY 
TV 120 GOSUB 260 
PG 130 DRAWTO SCRNX,SCRNY 
TZ 140 GOSUB 260 
PK 150 DRAWTO SCRNX,SCRNY 
UO 160 GOSUB 260 
PO 170 DRAWTO 5CRNX,SCRNY 
UH 180 GOSUB 260 
P5 190 DRAWTO SCRNX,SCRNY 
VF 200 NEXT XCENTR 
VR 210 NEXT YCENTR 

UT 220 GOTO 220:REM THE PROGRAM'S END 
OT 230 REM 
JV 240 REM *HHHf SUBROUTINE TO READ AND DR 

AW COORDINATES IHHHi 
QX 250 REM 
NI 260 READ XP,YP 
ID 270 SCRNX:::XCENTR'i-XP 
VZ 280 SCRNY=YCENTR-YP 
ZQ 298 RETURN 
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SH 10 REM «**» TESSELATION PROGRAM tt2 »»» 

fly 20 REM iBHHf TRIANGULAR TILES »*»» 

OX 30 REM iBHBt BY ALLAN MOOSE AND MARIAN 

LORENZ iHHHf 
ON 40 PRINT "N-lPRINT "LOADING SCREEN DUM 

MH 58* GOSUB 1088 

PL 68 GRAPHICS 31 : POKE 7e8,46:P0KE 709,19 

2:P0KE 712,60 ' 

FF 65 REM ««*» COORDINATE DATA »J«Hf 



GM 70 DATA 0,-8,0,8,-12,-8,0,-8 

MU 80 DATA 0,-8,12,8,0,8,0,-8 

ZC 85 REM «*HH* DRAWING CONTROL LOOP »*»K 

MM 98 FOR YCENTR=8 TO 176 STEP 16 

QI 100 FOR XCENTR=12 TO 144 STEP 12 

WL 110 FLAG=1 

UU 120 GOSUB 190 

WZ 130 FLAG=2 

UY 140 GOSUB 190 

UO 150 NEXT XCENTR 

WA 160 NEXT YCENTR 

FU 170 GOTO 810:REM GOTO THE SCREEN DUMP 

RP 175 REM 

ER 180 REM *«*» SUBROUTINE TO DRAW TRIANG 
LES J«t*» 

RR 185 REM 

ZY 190 IF FLAG=1 THEN RESTORE 70: COLOR 1 

DS 200 IF FLAG=2 THEN RESTORE 80:COLOR 3 

WZ 210 GOSUB 290:PLOT SCRNX,SCRNY 

UB 220 GOSUB 290 : DRAWTO SCRNX,SCRNY 

UD 230 GOSUB 290:DRAWT0 SCRNX,SCRNY 

IIF 240 GOSUB 290: DRAWTO SCRNX,SCRNY 

UD 250 IF FLAG=2 THEN POSITION SCRNX,SCRN 
Y-15:P0KE 765,l:XI0 18,»6, 0, 0, "S : ■■ 

ZK 260 RETURN 

RO 265 REM 

KT 270 REM IHHt* SUBROUTINE TO READ AND CO 
MPUTE SCREEN COORDINATES «»»» 

RO 275 REM 

NO 290 READ XP,VP 

SO 300 SCRNX=XCENTR+XP 

UM 310 SCRNYzYCENTR-YP 

ZD 320 RETURN 

RZ 795 REM 

XX 800 REM J HHW TEXTURED SCREEN DUMP PROG 

RAM iCKXK 
RI 805 REM 

NR 810 DIM GRAF$(40O} 
BU 820 GRAF$C1}=CHR$C0J :GRAF5(400]=CHR$C0 

) :GRAF$C2]=GRAF$ 
PS !52 kS"^"^ CHR$C27);CHR$C65J;CHR$C8) 
GV 840 5CRNMEM=PEEK(88}+PEEK(89)«256 
MB 850 MEMLOC=SCRNMEM+40»191 
DV 860 POKE 203,0:P0KE 284,0:P0KE 205,8 
AT 870 FOR SCRNCOL=MEMLOC TO MEMLOC+39 
CU 880 HIBYTE=INTt5CRNC0L/256) 
BU 890 L0BYTE=SCRNC0L-HIBYTE»256 
LZ 900 POKE 208,LOBYTE:POKE 209,HIBYTE 
Z5 918 GRHI=INTCADR{GRAF$J/256J 
MU 920 GRL0=ADRtGRAF$)-GRHI»256 
OU 930 POKE 206,GRLO:POKE 207,GRHI 
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DN 948 DUMP=U5R(1536} 

QU 950 LPRINT CHR$ C27J ; CHR$ £76) ; CHR$ C144) 

;CHR$Cl);GRfiFS 
JK 960 NEKT SCRNCOL 
OM 976 END 

10 1000 RESTORE 1030 
YO 1010 FOR 1=1536 TO 1697 : REfiD ML: POKE I 

, ML: NEXT I 
AF 1020 RETURN 

JjL 1030 DftTfl 104,169,192,133,203,160,0,17 
■ 7,208,170,41,192,201,128,208,9,133,204 
H ,169,64,133,205,76,29,6 
FH 1040 DftTfl 133,204,133,205,138,41,48,20 

1,32,208,13,5,204,133,204,169,16,5,205 

,133,205,76,57,6,5,204 
DO 1050 DflTft 133,204,5,205,133,205,138,41 

,12,201,8,208,13,5,204,133,204,169,4,5 

,205,133,205,76,85,6 
Q5 1060 DATA 5,204,133,204,5,205,133,205, 

138,41,3,201,2,208,13,5,204,133,204,16 

9,1,5,204,133,204 ^^^ 

QC 1070 DATA 76,113,6,5,204,133,204,5,205 

,133,205,230,206,208,2,230,207,165,204 

,145,205,230,206,208,2,230,207 
5F 1080 DATA 165,205,145,206,169,0,133,20 

4,133,205,198,203,240,18,216 
TQ 1090 DATA 56,165,208,233,40,133,208,14 

4,3,76,5,6,198,209,76,5,6,96 
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TP 10 REM **** TE5SELATI0N PROGRAM tt3 »»» 

* 
IK 20 REM **** QUADRILATERAL TILES *f*»* 
OX 30 REM «*»» BY ALLAN MOOSE AND MARIAN 

LORENZ »*«* 
ON 40 PRINT "H":PRINT "LOADING SCREEN DUM 

P. . ." 
MH 50 GOSUB 1000 
ID 60 GRAPHICS 31:P0KE 712,ie:P0KE 708,88 

lU 70 REM **it* DATA FOR THE FIRST ROW *** 

K 
LQ 80 DATA -6,-4,8,-10,0,8,-6,5,-6,-4 
QE 90 DATA 8,-18,6,-4,6,6,0,8,8,-18 
IF 188 REM **** DATA FOR SECOND ROM »»»» 
PI 110 DATA -6,4,0,18,0,-8,-6,-6,-6,4 
ML 120 DATA 0,-8*6,-6,6,4,0,10,0,-8 
TA 130 YCENTR=12:REM INITIALIZE Y-POSITIO 

f^ 

10 140 REM **** DRAMING CONTROL LOOP it»*» 

KF 150 REM **** DRAM ROM »1 **** 

DL 168 FOR KCENTR=6 TO 158 STEP 12 

CZ 178 FLAG=l:ROM=l 

TU 188 GOSUB 348 

XL 190 FLAG=2 

TF 200 GOSUB 340 

UH 210 NEXT XCENTR 

KY 220 REM **** DRAM ROM tt2 »»»» 

ZR 230 YCENTR=YCENTR+14:IF YCENTR>164 THE 

N GOTO 810 
LC 240 REM »»»» DRAM ROM tt2 »«*» 
NY 250 FOR XCENTR=12 TO 150 STEP 12 
DO 260 FLAG=l:R0M=2 
TT 270 GOSUB 340 
XK 280 FLAG=2 
TX 290 GOSUB 340 

UG 300 NEXT XCENTR ^ ^^ ^^^ 

ZO 310 YCENTR=YCENTR+14:IF YCENTR>164 THE 

N GOTO 810 
KU 320 GOTO 160:REM LOOP BACK TO DRAM ANO 

THER ROM 

DK 330 REM **** MAIN DRAMING SUBROUTINE » 

RJ 335 REM 

PM 340 GOSUB 480:G0SUB 540 

MQ 350 PLOT SCRNX,SCRNY 

UO 360 GOSUB 540 

PQ 370 DRAMTO SCRNX,SCRNY 
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US 380 GOSUB 540 

PU 390 DRAMTO SCRNX,SCRNY 

UD 400 GOSUB 540 

PF 410 DRAMTO SCRNX,SCRNY 

UH 420 GOSUB 540 

PJ 430 DRAMTO SCRNX,SCRNY 

VZ 440 IF FLAG=2 AND R0M=1 THEN POSITION 

SCRNX,SCRNY-17:P0KE 765,2:XI0 18,tt6,0, 

0,"S:" 
UN 450 IF FLAG=2 AND R0M=2 THEN POSITION 

SCRNX,SCRNY-17:P0KE 765,l:XI0 18,tt6,0, 

0,"S:" 
ZN 460 RETURN 
ZC 470 REM **H* CHOOSE CORRECT DATA NUMBE 

RS 475 REM 

VI 480 IF FLAG=1 AND R0H=1 THEN RESTORE 8 

e: COLOR 1 
ZE 490 IF FLAG=2 AND R0M=1 THEN RESTORE 9 

0: COLOR 2 
GN 500 IF FLAG=1 AND R0M=2 THEN RESTORE 1 

10:COLOR 3 
GT 510 IF FLAG=2 AND R0M=2 THEN RESTORE 1 

20:COLOR 2 
ZF 520 RETURN 
HJ 525 REM 
KO 530 REM **** SUBROUTINE TO READ AND CO 

MPUTE SCREEN COORDINATES «**» 
RL 535 REM 
NH 540 READ XP,YP 
TC 550 SCRNX=XCENTR+XP 
UY 560 SCRNY=YCENTR-YP 
ZP 570 RETURN 
RZ 795 REM 

MR 800 REM **** TEXTURED SCREEN DUMP »iH«* 
RI 805 REM 

NR 810 DIM GRAF$(40e) 
BU 820 GRAFStl)=CHRSCO) :GRAF$(400)=CHRSC0 

) :GRAF$C2)=GRAFS 
MC 830 LPRINT CHR$ C27J ; CHRS C65J ; CHR$ C83 
GY 840 SCRNMEM=PEEKt88)+PEEKC89)»256 
MB 850 MEMLOC=SCRNMEM+40»191 
DY 860 POKE 203,O;POKE 2e4,0;POKE 205,0 
AT 870 FOR 5CRNC0L=MEML0C TO MEMLOC+39 
CU 880 HIBYTE=INTfSCRNC0L/'256) 
BV 890 L0BYTE=SCRNC0L-HIBYTE»256 
LZ 900 POKE 208,LOBYTE:POKE 209,HIBYTE 
ZS 910 GRHI=INTtADRCGRAF$)/256) 
MU 920 GRL0=ADRCGRAF$)-GRHI»256 
OU 938 POKE 206,GRL0:P0KE 207,GRHI 
DN 948 DUMP=USRC1536) 
QU 950 LPRINT CHR$ C27) ; CHR$ C76J ; CHR$ C144) 

;CHR$tl);GRAF$ 
JX 968 NEXT SCRNCOL 
OM 978 END 
RK 988 REM 
RX 990 REM «»»» MACHINE LANGUAGE DATA *** 

« 
10 1880 RESTORE 1030 
YO 1010 FOR 1=1536 TO 1697: READ ML: POKE I 

, ML: NEXT I 
AF 1020 RETURN 
TQ 1030 DATA 104,169,192,133,203,160,0,17 

7,208,170,41,192,201,128,208,9,133,204 

,169,64,133,205,76,29,6 
FM 1040 DATA 133,204,133,205,138,41,48,20 

1,32,208,13,5,204,133,204,169,16,5,205 

,133,205,76,57,6,5,204 
DO 1050 DATA 133,204,5,205,133,205,138,41 

,12,201,8,208,13,5,204,133,204,169,4,5 

,205,133,205,76,85,6 
Q5 1060 DATA 5,204,133,204,5,205,133,205, 

138,41,3,281,2,208,13,5,204,133,204,16 

9,1,5,204,133,204 » ^„^ 

QC 1070 DATA 76,113,6,5,204,133,204,5,205 

,133,205,230,206,208,2,230,207,165,204 

,145,206,230,206,208,2,230,207 
SF 1080 DATA 165,205,145,206,169,0,133,20 

4,133,205,198,203,240,18,216 
TQ 1090 DATA 56,165,208,233,40,133,208,14 

4,3,76,5,6,198,209,76,5,6,96 
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One of the most pragmatically useful serv- 
ices on DELPHI is electronic mail, or E-mail. 
ANALOG'S ATARr SIG provides direct ac- 
cess to DELPHI'S electronic mail system, 
which happens to be one of the most power- 
ful available anywhere. 

There are two ways to get to mail from the 
ATARI SIG. The first is obvious, because it's 
a selection on the SIG menu: simply type 
MAIL (the selection is "MAIL (Electronic)"). 
The other route involves an "invisible" menu 
item, DELPHI Mail. I'll cover both of these 
in this column. 

When you type MAIL, you enter DELPHI'S 
electronic mail (E-mail) system. Basic E-mail 
operations include sending, reading, and for- 
warding messages, but DELPHI E-mail 

doesn't stop with the basics. There are a var- 
iety of enhancements you can use with these 
basic operations, including— among many 
others— sending the same message to sever- 
al people at once, forwarding messages to 
other DELPHI members, and nonstop dis- 
play of messages for fast download. 

You can also send files from your personal 
Workspace (this is convenient when long 
messages are involved), and messages you 
read can be copied to Workspace files. 
Several customizing features are available. 



U 



among them automatic carbon copies, a 
"personal name" that appears next to your 
membername in the message you send, and 
automatic message forwarding. 

DELPHI E-mail sports some sophisticat- 
ed message filing and handling features too. 
Need to keep messages on related topics 
together? Use E-mail's powerful filing system 
to create named folders and move or copy 
messages among them. Want to delete in- 
dividual messages, or all the messages 
you've read? One simple command does it. 
(And, if you accidentally delete the wrong 
messages, you can get them back!) 

Here's a quick-reference summary of the 
E-mail commands you'll use most: 



Type SEND, and DELPHI 

prompts you to enter the 
membername of the person 
to receive a message (To:), 
and the subject of the mes- 
sage (Subj:). Enter these and 
press < RETURN > , and the 
system prompts you to enter 
the message Type your mes- 
sage (or send a file as an 
ASCII upload— 7-bit text only) 
andAZto send it.(EnterAC at 
any point to cancel the 
message.) 

You can send the same 
message to multiple users by 
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I entering all of their names, 
separated by commas, at the 
To: prompt. 

To send a file from your 
Workspace, simply type 
SEND <filename>, and 
you'll be prompted for the ad- 
dressee and subject. After 
you enter this information, 
DELPHI sends a copy of the 
specified file to the 
addressee. 

Displays the headers of the 
messages in the current 
folder. (DIR <folder name> 
lists the messages in the 
specific folder, and makes 
that the current folder.) 

Use DIR/FOLDERS to see 
a list of available folders. The 
first time you try this, you'll find 
that one or two folders al- 
ready exist; MAIL, which con- 
tains all messages that you've 
read and not deleted, and 
NEWMAIL, which contains 
unread mail. (If you have read 
some new mail and deleted it, 
you'll find a third folder, called 
WASTEBASKET. This is a 
temporary file that is automat- 

I ically created to store deleted 
mail until you leave mail. It is 

I purged and deleted when 

I you leave E-mail.) It's worth 



READ 



FORWARD 



MOVE 



noting here that you don't 
have to use the folder system 
if you don't want to. When you 
enter E-mail and have new 
messages, the NEWMAIL 
folder is always the current 
folder; when you enter E-mail 
and have no new messages, 
MAIL is always the current 
folder The only time you need 
concern yourself with folders 
is when you wish to MOVE or 
COPY a message to a new 
folder, as explained below, 
(or press < RETURN >) Dis- 
plays the next message, one 
screen at a time, with "More" 
prompts. READ followed by a 
message number displays 
the designated message, as 
does entering the number 
alone. 

Sends a copy of the current 
message to a designated 
member or members. (You 
are prompted for an addres- 
see and subject, as when you 
SEND a message.) 
Moves the current message 
to a designated folder. You 
can simply type MOVE, in 
which case you will be 
prompted for the name of the 
folder, or MOVE <name of 
folder >. (The MOVEd mes- 
sage is deleted from the cur- 
I rent folder.) 



COPY 



EXTRACT 



SELECT 



DELETE 



If the folder you specify 
does not exist, you'll be asked 
if you wish it to be created. 
Answer yes and DELPHI cre- 
ates the named folder and 
moves the message to it. 
Copies the current message 
to a designated folder. Usage 
and options are the same as 
for MOVE, except the 
MOVEd message is not delet- 
ed from the current folder. 
Copies the current message 
to a designated file in your 
personal Workspace. Usage 
and options are the same as 
for MOVE, but the message 
is not deleted. 

Hint: If you wish to view or 
download a long message 
nonstop and without the 
"More" prompts, type EX- 
TRACT TT. This in effect "ex- 
tracts" the message to your 
screen (TT). If you want to dis- 
play all of your messages 
nonstop, type EXTRACT 
/ALL TT 

Moves you to the designated 
folder, where all commands 
operate only on the mes- 
sages in that folder. 
Erases the current message. 
(Actually, it moves the mes- 
sage to the WASTEBASKET 
folder.) To delete all the mes- 
sages in the current folder, 
type DELETE/ALL. (This is a 
command that you may use 
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often, since you are charged 
for Workspace storage be- 
yond a certain minimum, and 
your Mail files are part of your 
Workspace.) 

This command reduces the 
size of the Mail files in your 
Workspace— something you'll 
want to do if you keep mes- 
sages online, in folders or not. 
To use this command, sim- 
ply type COMPRESS at the 
l\/IAIL> prompt, then wait a 
few seconds while DELPHI 
creates a new, smaller Mail 
file Then, exit Mail, go to your 
personal Workspace, and 
type DELETE MAIL.OLD 
Type HELP to see a general 
overview of the E-mail system. 
Type HELP followed by a 
command (example: HELP 
SEND) to see specific infor- 
mation on using that 
command. 

Exit mail and return to the 
menu from which you entered 
it. (aZ has the same effect.) 



You can use several commands in se- 
quence to perform important tasks. For in- 
stance if you accidentally delete a message, 
use SELECT WASTEBASKET to move to 
the folder containing deleted messages. 



Once there, use DIRECTORY to find the 
message you wish to recover, READ it, then 
use MOVE MAIL to move it to your Mail file. 

■ — m :^ i f 

Typing DELPHI takes you into the DEL- 
PHI Mail (or D-mail) system. D-mail offers 
a gateway to E-mail (type MAIL), and much 
more. For openers, there's Telex service, 
which gives you E-mail access to more than 
1.7 million Telex terminals worldwide! (You 
can also receive Telex messages from any 
Telex user anywhere.) Type HELP TELEX for 
more information. 

The D-mail menu also offers direct access 
to your personal Workspace, a language 
translation service, and some important Mail 
utilities, as shown on the menu below. 



MAIL Menu: 



BATCH Mailthru 
CATALOG of Mail 

Files 
EXIT 
HELP 
Til Translation 

Services 



MAIL (Electronic) 
SCAN for New 

Messages 
TELEX/Easylink 
Workspace 

SetMail 



DMAIL>(Mail, Til, Telex) 

El_F»l— 1 
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DELPHI'S Business & Finance menu caF- 
ries two recent additions: CD Infoline and 
Mutual Funds Rates. CD Infoline presents 
a daily update of the 20 U.S. banks with the 
highest "jumbo CD" interest rates. There is 
a surcharge of $1.75 per report. Mutual 
Funds Rates provides quotes for some 1,700 



mutual funds. A surcharge of 7« per quote 
is levied. Type BUSINESS at the DELPHI 
Main Menu for access to these services. 

' xz ^ r~ r-» ^ rz ^ 

An interesting new feature on DELPHI'S 
NEWS-WEATHER-SPORTS menu is Views 

On News. Hosted by Ellen Kaufman, 
manager of the Micro Artists SIG, it features 
regular contributions by several well-known 
DELPHI personalities. Primarily a forum for 
discussing current events. Views On News 
also offers features like Bob Fried 's "Articles 
of Lasting Strangeness" (and they are). Type 
NEWS VIEWS to sample Views On News. 

1 «_j<s:s;<dl^>«' l^^i,^lTP^ 
( ^ n cdH «r> *: !-» ^ i— ) 
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A reminder: ANALOG'S ATARI SIG hosts 
a realtime conference each Tuesday at 10 
p.m., EST You'll find the conferences an ex- 
cellent venue for sharing information about 
Atari computers, getting answers to ques- 
tions, and participating in friendly discussions 
of all types. 

If you've a yen to chat online, though, you 
don't have to wait for Tuesday to roll around. 
Type WHO whenever you enter the SIG; the 
system will tell you if anyone is in conference 
(and chances are very good there will be a 
conference going on). Even if there are no 
conferences going on when you enter the 
SIG, you can probably start one by going 
to the conference area and typing /PAGE fol- 
lowed by one of the membernames listed 
when you typed WHO. 

In addition to having published science fic- 
tion novels and books on rocketry, Michael 
A. Banks is the author of DELPHI: The Offi- 
cial Guide and The Modem Book, both 
from Brady Books. To order DELPHI: The 
Official Guide, type GO GUIDE at any SIG 
prompt. 

Look for his articles on telecommunications 
and using DELPHI in the ATARI SIG data- 
bases. You can contact Banks on DELPHI 
by sending E-mail to membername KZIN. 



Si 
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Molex 13-Pin Connector 
For Atari Serial Bus 
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any of us own- 
several 8-bit 
Ataris for the simple reason that 
we want to keep up with the new 
technology. At the same time, it's 
pointless to sell the old equipment 
for a fraction of its original value. 
What to do? It's a shame to allow 
the extra computers around your 
house to go to waste, especially if 
you have children, a wife, hus- 
band, cat, or whomever, that vies 
with you for computer time on the 
one machine that is in use. 
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You could always hook up your extra 
computer to an old TV, and then jug- 
gle cables between the two Ataris. Not 
many people can afford, or justify, own- 
ing an extra set of peripherals (disk 
drive, printer, interface, etc.). But the 
hassle of juggling cables just isn't worth 
it, and is not good for the computers if 
you do so with the power on (a near 
necessity, if two people are to use the 
same disk drives frequently). 

There must be a better way — and 
there is. I call it Rapid Swap. The best 
news is that it is inexpensive, and easy 
to buUd. 

It would be handy to have a toggle 
switch that would automatically swap 
your entire serial bus full of Atari 
peripherals between systems. The 
problem is that it is tough to find a 
13-pole toggle switch! Even those mul- 
tipole rotary switches, like the ones 
found in RS232 switch boxes, are hard 
to come by. 

Hey! That's it! Why not use an RS232 
switch box? They're affordable, less 
than a $50 mail order. Oh, but the con- 
nectors aren't the 13-pin serial bus type 
that Ataris use. 

Well, that's where the work begins. 
You'll need three spare serial bus ca- 
bles (for two-computer swapping). If 
you want to get a 4 or 5 position switch 
box, for sharing as many computers, 
you'll have to make more cables. 

The connectors at the rear of an 
RS232 data switch box are 25-pin D- 
type females. You will need to purchase 
three male connectors and appropriate 
assembly hardware. You'll also need the 
usual electronics-kit building tools, such 
as a good low-wattage soldering iron, 
wire stripper, solder, wire cutters, a 
small screwdriver, and a multimeter for 
measuring continuity. You'll need an 
RS232 switch box also. Take your Atari 
serial bus cables and cut one end off 
each. You can try to save yourself a few 
bucks by cutting one in the middle, but 
you're likely to come up short, requir- 
ing your computers to sit closer to- 
gether than you'd Uke. 

Each cable might have the same color 
wires, or they may be completely differ- 
ent. (Murphy's law dictates that it is the 
latter, since that means more work for 
you. Even if they do have the same color 
codes, double check each.) You'll need 



to check where each wire goes in the 
13-pin connector at the opposite end. 
Set your meter on kilo-ohms or con- 
tinuity checkuig. (Many have the latter, 
where you will hear a small beep if the 
test probes encounter a connection.) 

See Figure 1 for appropriate pin 
numbering. Write down the consecutive 
pin numbers alongside the color wires 
they're associated with. There should be 
13 unique colored wires (or solid with 
stripes). You may find that they're 
paired. The cables are usually lined with 
aluminum foil, and around that is twist- 
ed and uninsulated wire, called the 
shield. (This lies between the outer in- 
sulation of the cable and the wire bun- 
dles within.) There may be only six 
unique colors, each having a soUd black 
wire twisted around it. If so, keep them 
twisted until ready to solder. If they get 
separated, you'll have to go back with 
the meter and check their routing again. 

Note what type of backshells, or 
hoods your 25-pin connectors have. If 
they're two-piece, you can set them 
aside until everything else is done. If 
they're one piece, then you'll have to 
slide then onto the cable first. Next strip 
back the black outer insulation on the 
Atari cables about one to two inches. 
Treat the shield with care, this is sol- 
dered to pin 10 of the 13-pin molex 
connector (and will go to the same pin 
number on the 2 5 -pin connector). 

Strip back the insulation on each wire 
about 1/1 6th to l/8th of an inch and 
warm up the soldering iron. Solder 
wires 1-13 from the 13-pin connector 
to the same numbered pins. If the ex- 
posed wire is short enough, you won't 
need to do any extra insulating when 
you've soldered it in place. You might 
want to put shrink tubing over the 
solder tabs and wires to be safe — if you 
aren't adept at soldering. Refer to 
Figure 1 and your colored-wire list fre- 
quently. Note that the pin numbering is 
shown as if you were looking at the bus- 
iness end of the connector (the part that 
plugs into the computer or switch box). 

When you're done with each cable, 
use your meter to double check it. Make 
sure that pin 1 of the 13 -pin molex con- 
nector goes to pin 1 of the RS232 con- 
nector, and so on. Double check them, 
triple check even. You don't want to 



cross any wires 



When all your cables are completed, 
it's time for testing. Plug the RS232 
connectors into A and B (or 1 and 2, 
however your switchbox is labled) on 
the box. Route the other ends to the 
SIO bus connector on each computer 
you'll be using. The connector labeled 
COMMON (or something similar) 
should have a cable hooking it to the 
first device in your serial bus chain. 

Now switch the box to A, and boot 
computer A off Drive #1 . Next switch 
to B, and boot computer B. Try print- 
ing to the printer from either computer. 
You've got to watch for timeouts. This 
will be the most common error you will 
get when you forget to turn the knob on 
the RS232 box. 

This little gizmo will really help you 
get more use out of your computers, 
with minimal additional investment. 
Now, while your daughter is working on 
her term paper, you can flip the switch 
over to your machine and boot up Ball- 
blazer! No more waiting in line for the 
computer! 

If you have XL or XE computers, you 
can set up RAMDISKS and do most of 
your work there. Then you'll generally 
need to access the disk only when you 
want to make a final backup. 

American TV, at 1-800-551-9995, 
seUs I/O Cable Plug Kits for $4.50 (con- 
nectors only; you build the cable). They 
may also sell complete SIO cables 
(which would save you some wiring 
time, but cost a little more). B & C Com- 
putervisions at 408-749-1003, sells the 
SIO cables also. 

You can get an RS232 switch box 
from any computer dealer, but prices 
vary widely. For a two-position switch 
box the price may range from $30 to 
$70 or more. I was able to find one, 
new, at a local electronics specialty store 
for only $35. JACO Enterprises at 
408-996-0675 advertises then in Byte 
for $45 each. 

The connectors and housings (back- 
shells) can be purchased at any Radio 
Shack. They may have the switch box- 
es too, but, I would expect, at a slightly 
higher price. The connectors (all but the 
13-pin molex) and switch boxes would 
probably be available from electronics 
mail-order houses such as JDR Micro- 
devices at 800-638-5000 or JAMECO 
Electronics at 415-592-8097. O 
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elcome to 
Paint Shop, 
the program that lets you 
custom-mix your own colors, 
then save the data to disk for use 
in your own programs. 



Before we get into the workings of 
Paint Shop, I would Uke to thank James 
Luczak for his very useful article "VDI 
Sampler", that appeared in the June is- 
sue of ANALOG Computing. I found 
myself turning to it so often, the cover 
fell off my copy. If you don't have a 
copy of that issue, it is well worth the 
time and effort spent to dig one up. And 
now, on to Paint Shop! 

Slni<=>|r» 

Type in the program exactly as it ap- 
pears in Listing 1. When you have 
finished, save a copy to disk, then use 
ST-Check (Issue 41) to make sure there 
are no typos. If your typing checks, you 
are ready to run Paint Shop. 

I J ^ i n ^ F* ^ i r-i t 

Paint Shop will run only in the low 
resolution mode. The first screen to 
come up will be the title screen. After 
a few seconds, a chime will sound, and 
a prompt will appear. When you press 
a key, a tone wUl sound, the screen will 
clear, and the Paint Shop work screen 
will come up. Notice that the screen is 
divided into three areas. The section at 
the top contains the 16 basic colors. 
The main menu is located in the area 
at the lower left. To the right of the 
menu is the work area. 

Paint Shop is an easy program to use. 
The mouse is used for all input, except 
when loading or saving data. Move the 
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cursor to the MIX COLOR option on the 
main menu, and cUck the mouse button. 
MIX COLOR will lighten, the work area 
will clear, and the color mixing graph- 
ics will appear. 

Move the cursor to NEW COLOR, 
and cUck the button. NEW COLOR will 
change to reverse video. Now go to the 
top of the screen, and click on one of 
the colors. The black box that appeared 
around the first color will move to this 
new color. This is the base color. You 
are now ready to begin your mixing. 

The three sets of arrows in the work 
area are used for color mixing. They are 
labled R, G, and B for red, green and 
blue. The arrows at the top (with + at 
the tips) add to that color. For example, 
if you click on the top arrow of the R, 
you will add some red to the base color. 
The arrows at the bottom (with + at the 
tips) subtract from that color. Note that 
the colors wrap around. That is, if you 
are adding color and the value becomes 
greater than 1,000 (the maximum al- 
lowed), the value will change to zero. 
This is also true when subtracting color, 
but the value goes from less than zero 
to 1,000. 

Let's save our new color data to disk. 
Go to EXIT, and click the mouse but- 
ton. Go to SAVE DATA on the main 
menu, and click the button. The work 
area will clear, and the SAVE DATA 
routine will begin. Type in a filename 
of not more than eight characters in 
length. Do not use an extender! If you 
enter an invaUd filename, the program 
will let you know, then prompt you for 
a new entry. Press RETURN. The drive 
will come on, and "WORKING" will ap- 
pear on the screen. After a few mo- 
ments, "SAVE COMPLETE" wiU ap- 
pear, and the drive will turn off. You 
have just saved your new colors to disk 
in two files; one with a ".DAT" ex- 
tender and one with a ".HAS" ex- 



tender. The use of these two files will 
be explained later. 

Now let's go back and reset all of the 
colors to their original values. Go to 
MIX COLOR, and click the mouse but- 
ton. When the color mixing graphics 
come up, click on NEW COLOR. Go to 




Paint Shop is an easy 
program to use. 



the top of the screen, and cUck on one 
of the colors that you changed. Next, go 
to RESET in the work areas, and click 
the button. The color will retiUTi to its 
original shade. Go to EXIT, and click 
the button. Now go to RESET on the 
main menu, and click the mouse button. 
When the RESET graphics come up, 
click on the YES box. All of the colors 
will reset to their original values. Go to 
QUIT on the main menu, and click the 
button. Click on the YES box. All of the 
system values, including the colors, will 
be reset to their default settings. The 
screen will clear, and the command win- 
dow will appear. 

F* •—<:=» ^ w~ Zk. r~r-» nn i r-i ^ 
V^N/" i t^ 1-1 F=» ;a. i r-i lz 
Sl-| cr>|:z> 

There are several ways to use the data 



generated by Paint Shop. The two 
methods given here are the easiest for 
BASIC programmers to use. Both use 
VDI attribute function 14. The differ- 
ence lies in where the data is stored. 
This is where the ".DAT" and ".BAS" 
files mentioned earlier come into play. 
The ".DAT" file is made up of raw data 
that must be loaded and poked into 
memory. Listing 2 handles that job. The 
".BAS" file is composed of BASIC pro- 
gram lines containing data statements 
that contain the data for your colors. 
This file may be added to your own pro- 
grams by using the merge option on the 
File Menu at the top of the screen. List- 
ing 3 is used to fetch the data and poke 
it into memory. Caution must be ob- 
served when using this method! The 
data statements begin at Line 10,000 
and end at Line 25,000. Be certain 
your program does not contain these 
Ime numbers. If you try to merge the 
".BAS" file with a program that has 
these line numbers in it, the lines in the 
".BAS" file will overwrite the lines in 
your program. Not a nice thing to have 
happen! This should not be a problem, 
but forewarned is forearmed. If need 
be, the data statements may be renum- 
bered to fit in your program. 

Listing 3 is my favorite because, un- 
like Usting 2, it does not have to access 
the disk drive when you run your pro- 
gram. Whichever method you pick, I 
hope you find this program useful. 
Good luck and happy programming! 



Jerry Wl. Beardsley is a self taught 
programmer with five years experience. 
He enjoys working in BASIC, Logo and 
C, He lives in Cuyahoga Falls, Ohio, 
with his wife Mary, his son Robbie and 
his mother. His other hobbies are read- 
ing Sci-Fi and Fantasy. This is his first 
published work. 
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IB ' KIOCKKKKKMKKKKKKM ST PflINT 5H0P, UE 

RSION 1.8 KKKKKKKKKKKKKKKKK 

28 ' MKKKKKKKKXMKKKKKKKMKKIC COPYRIGHT 1 

986 KKKXKICKKKKKKKKKKKKKKKKK 

38 ■ KKKKKKKKKKKKKXKKKK BY JERRY M. BEfl 



RDSLEY KKKKKKKKKKKMKKKMKKKK 

48 ■ 

58 ■ KKKMMXKKICK IMITIflLIZE UflRIflBLES, D 

RAM TITLE SCREEN KKKKXXXXKK 

68 FULLW 2:CLEflRH 2:DIH DC C16, 3J : fl=8 : B 

=l!C=2:D=3;E=4:F=5 

78 G=6 ; H=7 : 1=8 : J=9 : K=18 : L=22 : M=15 : 8X1= 
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B!BY1=L:BX2=304:BY2=188 

80 T$ffl}="flHftLOG COMPUTING" :T$(B)="PRE 

SENT5'" : F$ CJ) ^''COPYRIGHT" 

50 T$CC}="PftINT 5H0P":TS{D)=", VERSION 

1.0":TSCE3=" 1985 BY" 
100 T$(F3="JERRY M. BEflRDSLEY" : T$ tGJ =C 
HRSfl89J :TStHJ=CHRS(131J 
110 TSCI)="One MoMent Please":T$CJJ="P 
ress Any Key To Continue" 
120 IF5=C:F5I=J:FLC=C:G0SUB 5IF5TYLE : G 
05UB 5FINDEX:G05UB 5FCDLDR 
130 G05UB BfiR:IF5=B:F5I=B:FLC=B:BXl=BK 
1+43:BY1=BY1+L 

140 BK2=BX2-44:BY2=BY2-28:G05UB SIFSTY 
LE:G05UB 5FINDEX 

150 G05UB 5FC0L0R:G05UB BAR:COLOR B,X, 
E,B,B:LM=D:G05UB 5PLNIDTH 
160 LINEF BX1-D,BY1-L,BX2+B,BY1-L:LINE 
F BX2-B,BY1-L,BX2-B,BY2-L 
170 LINEF BX2+B,BY2-L,BX1-D,BY2-L:LINE 
F BXl-B,BY2-L,BXi-B,BYl-L 
180 COLOR M:WM=C:TE=41:P$=TStfl> !SX=BX1 
+E«K+C!5Y=BY1+11 

190 G05UB 5WM0DE!G05UB TXTEFFECTS : G05U 
B TXTPRINT:SX=BX1+HKK+E 

200 5Y=BY1+C*K+H:PS=T$CBJ iGOSUB TXTPRI 
NT:COLOR ft!TE=33 
210 5X=BX1+K:5Y=BY1+F»K:P$=TSCCJ : G05UB 

TXTEFFECTS 
220 GOSUB TXTPRINT:TE=A:COLOR D;5X=BX1 
+J«K+C:P$=T$CHJ 

230 GOSUB TXTEFFECTS: GOSUB TXTPRINT:CO 
LOR fl:TE=33:SX=BXl+K»K 

240 P$=T$tDJ : GOSUB TXTEFFECTS : GOSUB TX 
TPRINT:SX=BX1+D*K 

250 SY=BY1+H»K:C0L0R C : PS=FS CJ) : GOSUB 
TXTPRINT:COLOR D:TE=ft 

260 SX=BX1+K»K + E : SY=BY1+H*K-B : PS=TS CGJ 
:G05UB TXTEFFECTS 

270 GOSUB TXTPRINT:COLOR C : SX=BX1+11«K 
+ J : 5Y=SY + B ; TE=33 : P$=T$ CE) 
280 GOSUB TXTEFFECTS: GOSUB TXTPRINT:SX 
=BX1+E»K-G : SY=BY1+J*K 

290 P$=TStF) : GOSUB TXTPRINT : SX=BX1+EKK 
:5Y=BY1+11»K: COLOR M 

300 P$=T$CI3 :TE=I:G05UB TXTEFFECTS : GOS 
UB TXTPRINT : CN$— " " 

310 MSCBJ="MIX COLOR":MSCCJ="LOflD DATA 
":MSCD)="SflUE DATA" 

320 M$ (E) ="RESET" : M$ {F) ="QUIT" : MS CGJ =" 
Use Mouse To" 

330 M$CHJ="Make Selection" : MS tIJ ="Ente 
r FilenaMe":M$CJJ="Wopking" 
340 FS CA) ="Save" : FS CBJ ="Load" : FS CCJ =" 
CoHplete" 

350 F$CD)="CNO EXTENDERl " : FS CEJ ="INC0R 
RECT ENTRY" 
360 FSCFJ="Return To Exit":FS(G)=" YES 

":FStH)=" NO " 
370 FSCIJ="Are You Sure?":N=16:0=166:Q 
=3O3:R=21:R1=1O00 

380 5=72 : T=152 : U=304 : P8=112 : P9=i24 ; P10 
=146:LN=100O0 

390 Pl=20 : P2=19 : P3=14 : P4=ll : P5=13 : P6=l 
25:P7=158:DIM NCCN,D) 

400 BS=" new COLOR ":CS="POINT AND CLI 
CK":E$=" EXIT " 
410 NTS="ANAL0G COMPUTING" 
420 Ml$=SPACESCBJ+M$tE}+5PACESCB3 : X1=J 
:Y1=45:X2=30:Y2=61 

430 FOR X=ft TO M:POKE CONTRL, 26 : POKE C 
ontrl+c,a:poke C0NTRL+G,C 
440 POKE INTIN,X:POKE INTIN+C, B : UDISY5 
(A) :DC(X,ft)=PEEKCINTOUT+CJ 
450 DCCX,B)=PEEKCINTOUT+E) :DCCX,C3=PEE 
KCINTOUT+G) 

460 NCCX,A)=DC(X,A} : NC CX, B) =DC CX, B} : NC 
(X,C>=DCCX,C) :NEXT 

470 COLOR B:G0SUB TXTPRINT : COLOR M:SX= 
BX1+I:NF$="FILE NOT FOUND" 
480 PS=TSCJ1 : GOSUB TXTPRINT : GOTOXY ft, A 



:PRINT CHRS(HJ :DS="DATA" 

490 KEYrlNPCC} :S0UND B, M, E, G, B : SOUND B 

,A,A,A,A:GOSUB HMCURSOR 

500 ■ KMKMXXICKKICKKMKKMMKKKK MAIN PROGRA 

M LOOP MKXKKICXKKXKKMKMMMKKK 

510 CLEARM C:GOSUB MEWTITLE : IFS = B : FSI=: 

B:FLC=H 

520 RX1=C : RY1=L : RX2=Q : RY2=36 : ID= J 

530 GOSUB SIFSTYLE:G0SUB SFINDEX : GOSUB 

SFCOLDR: GOSUB RFRECT 
540 IF5=A ! FSI=A : FLC=B : RY1=21 : RY2=37 : GO 
SUB SIFSTYLE: GOSUB SFINDEX 
550 GOSUB SFCOLOR:GOSUB RFRECT:COLOR B 
,A,B:SX=110;5Y=35:TE=E:TH=K 
560 PS=T$(C)+TStHJ :GOSUB TXTEFFECTS : GO 
SUB TXTHEIGHT 
570 GOSUB TXTPRINT:LINEF A, N, U, N : LINEF 

Q,N,Q,0:LM=B 
580 LINEF Q,0,A,D:LINEF A, 0, 0, N : BX1=X1 
: BY1=Y1 : BX2=X2 : BY2=Y2 : IFS=B 
590 GOSUB SFINDEX:GOSUB SPLWIDTH : FSI=B 
:GOSUB SIFSTYLE 

600 FOR X=A TO MilF X=I THEN BX1=J:BY1 
=7e:BX2=30:BY2=86 

610 FLC=X:GOSUB SFCOLDR : GOSUB BAR:LINE 
F BX1-C,BY1-L,BX2,BY1-L 

620 LINEF BX2,BY1-L,BX2,BY2-R:LINEF BX 
2, BY2-R, BXl-C, BY2-R 

630 LINEF BX1-C,BY2-R,BX1-C,BY1-L:BX1= 
BXl+38 : BX2=BXl+20 : NEXT 

640 LM=D:G05UB SPLMIDTH : LINEF A,S,U,S: 
LINEF T,S,T,O:5X=40:SY=110 
650 RX1=G : RY1=97 : RX2=148 : RY2=112 : TE=A : 
GOSUB TXTEFFECTS 

660 FOR X=B TO F : IFS=B : FSI=B : FLC=H ; GOS 
UB SIFSTYLE:G05UB SFINDEX 
670 GOSUB SFCOLOR:GOSUB RFRECT : IF5=A : F 
SI=A:FLC=B:G0SUB SIFSTYLE 
680 GOSUB SFINDEX:GOSUB SFCOLDR : GOSUB 
RFRECT : RY1=RY2+D : RY2=RY1+M 
690 P$=M$tXJ : GOSUB TXTPRINT : SY=RY2-C : N 
EXT:IFS=B:F5I=B!FLC=A 
700 GOSUB SIFSTYLE: GOSUB SFINDEX : GOSUB 

SFCOLOR 
710 COLOR B:TE=I:GDSUB TXTEFFECTS : GOSU 
B PROMPT 

720 PICK=A: GOSUB SMCURSDR : GOSUB SMBUTT 
ON:IF BP=A THEN 720 
730 IF MX<C OR MX>149 THEN 729 
740 IF MY>=97 AND MY<=lie THEN PICK=B: 
5Y=110:G0T0 790 

750 IF MY>=115 AND MY<=128 THEN PICK=C 
:SY=128:G0T0 790 

760 IF MY>=135 AND MY<=145 THEN PICK=D 
:SY=146:G0TD 790 

770 IF MY>=i53 AND MY<=163 THEN PICK=E 
:SY=164:G0TD 790 

780 IF MY>=171 AND MV<=181 THEN PICK=F 
:SY=182 

790 IF PICK=ft THEM 728 ELSE GOTOXY A, A 
:PRINT CHRSCH) 

800 COLOR A:TE=A:SX=48:PS=MSCPICK1 :GOS 
UB TXTEFFECTS 

810 GOSUB HMCURSOR:GOSUB TXTPRINT : BX1= 
157 : BY1=96 : BX2=301 : BY2=186 
820 ON PICK GOTO MIXCOLOR,LDADDATA, SAU 
EDATA,SETFINISH,SETFINISH 

830 MIXCOLORl' XKKKMKXKKMMKMKKKlCKKXKKKK 
KKKXKKKKKMKKKKMKKKKKKKXKKKK 
840 CI=A:GOSUB BAR : IFSrA : FSI=A : FLC=B : G 
05UB SIF5TYLE:G05UB SFINDEX 
850 GOSUB SFC0L0R:BX1=X1-C:BY1=Y1-B:BX 
2=X2+C:BY2=Y2+C:G0SUB BAR 
860 BX1=BX1-B : BY1=BY1-B : BX2=BX2+B : BY2= 
BY2-^B:G0SUB BAR:COLOR B 

870 TH=C»K:GOSUB TXTHEIGHT : GOTOXY P2-B 
,P4:PRINT CHRStB) 
880 GOTOXY P2-B,M:PRINT CHRS (C) : GOTOXY 

P2+C,P4:PRINT CHRS(B) 
890 GOTOXY P2+C,M;PRINT CHRS tCJ : GOTOXY 

P2+F,P4: PRINT CHRSCBI 
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900 GOTOXY P2+F,M:PRINT CHR$ CO : TH=J ; G 

OSUB TKTHEIGHT 

910 5X=167:SY=138;PS="R":G05UB TKTPRIN 

T 

920 5X=5K+R+G:PS="G":G0SUB txtprint 

930 SX=5X+27;P$="B":G05UB TXTPRINT 

940 SX=5X-54!5Y=i05:P$="+":G05UB TXTPR 

IMT 

950 5X=5X+R+G!G0SUB TXTPRIMT ! 5X=SX+R+G 

;G0SUB TXTPRINT 

960 5X=SX-54:5Y=170:P$="-":GO5UB TXTPR 

INT 

970 5X=SX-i-R + G:G0SUB TXTPRINT : SX=SX + R + G 

:G0SUB TXTPRINT 

980 5X=SX+K+I:SY=120:PS=M1$:GO5UB TXTP 

RINT 

990 BX1=5X-B ! BY1=SY-H : BX2=295 : BY2=5Y+C 

:G0SUB BAR 

1000 BX1=SX-C : BY1=5Y-I : BX2=296 : BY2=SY+ 

D:GOSUB BAR 

1010 SY=SY+37:PS=ES:G0SUB TXTPRINT 

1020 BX1=5X-B : BY1=SY-H : BX2=287 : BY2=5Y+ 

C:GOSUB BAR 

1030 BX1=SX-C ! BY1=5Y-I : BX2=288 : BY2=SY+ 

l>:GOSUB BAR 

1048 SX=SX-53:SY=SY+23:P$=BS:G05UB TXT 

PRINT 

1050 bx1=sx-b : by1=sy-h ! bx2=bx2-14 : by2= 
sy+c:gosub bar 

1060 bx1=sx-c ! by1=sy-i : bx2=bx2+b : by2=s 
y-|'D:G05UB bar 

1070 BX1=X1-D : BY1=Y1-C : BX2=X2-i'D : BY2=Y2 

+ D 

1080 PICK1=A:G0SUB SMCURSOR : GOSUB 5MBU 

TT0N:IF BP=A THEN 1088 

1090 IF MX<156 OR HX>299 OR MY<96 OR M 

Y>185 THEN lOBO 

1100 IF MX>=165 AND MX<=175 AND MY>=P8 

AND MY<=P9 THEN PICK1=B 
1110 IF MX>=165 AND MX<=175 AND MY>=P1 
AND MY<=P7 THEN PICK1=B 
1120 IF MX>=192 AND MX<=202 AND HY>=P8 

AND MY<=P9 THEN PICK1=C 
1130 IF MH>=192 AND MX<=202 AND MY>=P1 
AND MY<=P7 THEN PICK1=C 
1140 IF MX>=219 AND MX<=230 AND MY>=P8 

AND MY<=P9 THEN PICK1=D 
1150 IF HX>=219 AND MX<=230 AND MY>=P1 
AND MY<=P7 THEN PICK1=D 

1169 IF MK>=239 AND MX<=294 AND MY>=P8 
AND MY<=122 THEN PICK1=E 

1170 IF MK>=239 AND MX<=285 AND MY>=14 
9 AND MY<=P7 THEN PICK1=F 

1180 IF NX>=188 AND MX<=274 AND MY>=17 

2 AND MY<=181 THEN PICK1=G 

1190 IF PICK1=A THEM 1088 ELSE GOTOXY 

A,A:PRINT CHR$(H] 

1200 ON PICKl GOTO RED, GREEN, BLUE, PUTB 

ACK,EXIT,NEMCOLOR 

1210 RED ! ' KMMlCKKKKKKMltKMKICICmtKKKKKXKKK 

KKKKKKXKMKKMKMXKKMICKMKICMICMK 

1220 IF MY<=P9 THEN NC CCI, Al =NC CCI, A} + 

P6 

1230 IF MV>=P18 THEN NC (CI, A) =NC CCI, Al 

-P6 

1240 IT=A:G0SUB 5ETCDL0R:G0T0 1080 

1250 GREEN; ' KMKKKKXICKMMKMMICKMKICMKKKKKM 

KMXKKKltMKlCICKKKKKKKKKXXKmCKK 

1268 IF MY<=P9 THEN NC CCI, Bl =NC (CI, Bl + 

P6 

1270 IF MY>=P18 THEM MC (CI, B) =NC (CI, B) 

-P6 

1280 IT=B: GOSUB SETCOLDR : GOTO 1080 

1290 BLUE ; ' MMmCKKKKKKKXKKMMKKXKKKMlClCKK 

KKXXXKKKXXXXKKXKXKXMXXKKKXK 

1300 IF MY<=P9 THEN NC (CI, C) =NC CCI, CI + 

P6 

1310 IF MY>=Pie THEM MC CCI, CJ =MC CCI, C) 

-P6 

1320 IT=C: GOSUB SETCOLOR : GOTO 1080 

1330 PUTBACK; ' XKXXXKXXKKKKKXKXXKXXXXKX 



XKXXKKXKKXXXKKKMKKKXKXXKKKX 

1340 GOSUB HMCURS0R:PS=MlS!SX=239:SY=i 

20: COLOR A: GOSUB TXTPRINT 

1350 MM=E: GOSUB SMMODE: COLOR B: GOSUB T 

XTPRINT 

1360 POKE C0NTRL,14:PDKE CONTRL+C, A : PO 

KE CONTRL+G,E 

1370 POKE INTIN,CI:POKE INTIN+C, DC CCI, 

AlrPOKE INTIN+E,DCCCI,B} 

1380 POKE INTIN+G,DCCCI,CJ :VDISYSCA) :M 

CCCI,A}=DCCCI,A) 

1390 NCCCI,B}=DCCCI,B) : NC CCI, C] =DC CCI, 

C) :GOSUB PAUSE 

1400 HM=B: GOSUB SWMODE: COLOR B : GOSUB T 

XTPRINT 

1410 GOSUB SMCURSOR: GOTO 1080 

1420 EXIT: ' XXXKXKXKKXXKKXXXXKKKKKKKKXK 

KXXXXKKKXXKXXXKKKMXXXXXXXXK 

1430 GOSUB HMCURS0R:PS=E$:SX=239:SY=15 

7:C0L0R A:G0SUB TXTPRINT 

1440 MH=E:GOSUB SMM0DE:C0L0R B:GOSUB T 

XTPRINT :FLC=A: GOSUB SFCOLOR 

1450 WM=C: GOSUB SMMODE: GOSUB BAR:BX1=B 

Xl+B : BV1=BY1+B : BX2=BX2-B 

1460 BY2=BY2-B:G0SUB BAR:GOSUB PAUSE:G 

OSUB CLEANUP:GOTO 720 

1470 NEWCOLOR: ' XKKXMXKKKXKKKKKKXXXXXXK 

XKXXXKKKKKMMKKKKKKKKXKKKKKK 

1480 GOSUB HMCURS0R:P$=B$:SX=186:SV=18 

0:COLOR A:GOSUB TXTPRINT 

1490 MM=E: GOSUB SMMODE: COLOR B: GOSUB T 

XTPRINT 

1500 GOSUB SMCURSOR :HM=C: GOSUB SMMODE: 

TX=-1 

1510 GOSUB SMBUTTON:IF BP=A THEN 1510 

1520 IF MX<J OR MX>294 OR MY<47 OR MY> 

85 THEM 1510 

1530 IF MY>=71 AND MY<=85 THEN AD=I EL 

SE AD=A 

1540 IF MX>=J AMD MX<=28 THEN CI=AD:TX 

=A:GOTO 1620 

1550 IF MX>=47 AMD MX<=66 THEM CI=AD+B 

:TX=B:G0T0 1628 

1560 IF MX>=85 AMD MX<=184 THEN CI=AD+ 

C:TX=C:GOTO 1620 

1570 IF MX>=123 AND MX<=142 THEM CI=AD 

+D:TX=D:GOTO 1628 

1580 IF HX>=161 AND MX<=180 THEN CI=AD 

+E:TX=E:GOTO 1620 

1590 if mx>=199 and mx<=218 then ci=ad 
+f:tx=f:goto 1620 

1600 IF MX>=237 AND MX<=257 THEN CI=AD 

+G:TX=G:GOTO 1620 

1610 IF MX>=275 AND HX<=294 THEM CI=AD 

+H:TX=H:GOTO 1628 

1620 IF TX<A THEM 1510 ELSE GOTOXY A, A 

: PRINT CHR$CH} 

1630 GOSUB HMCURS0R:FLC=A:G0SUB SFCOLO 

r:gosub bar 

1640 BX1=BK1+B:BY1=BY1+B;BX2=BX2-B:BY2 

=BY2-B:G0SUB BAR:FLC=B 

1650 GOSUB SFCOLOR: IF CI>=I THEN BY1=7 

0:BY2=86 ELSE BY1=Y1 : BY2=Y2 

1660 BX1=TX*38+H : BY1=BY1-B I BX2=BXl+24 : 

BY2=BY2+C;G0SUB BAR 

1670 IF CI=A OR CI=I THEN BX1=X1-C:BX2 

=X2-t'C:G0SUB BAR 

1680 BX1=BX1-B : BY1=BY1-B : BX2=BX2+B : BY2 

=BY2+B: GOSUB BAR 

1690 MM=B: GOSUB SMMODE: GOSUB TXTPRINT: 

GOSUB SMCURSOR:GOTO 1088 

1700 LO ADD ATA: ' XKXXXXXXKXKKXXXXXXKXXXX 

XKXXXKKXXXKXXXXXKXXXXXXXKKX 

1710 ON ERROR GOTO 1818 

1720 ER=A:GOSUB BAR : TH=J : GOSUB TXTHEIG 

HT:GOSUB GETNAME 

1730 GOTOXY R,N:MRITE M$CJ):OPEN "I",tt 

1,NAME$ 

1740 POKE C0NTRL,14:P0KE CONTRL+C, A : PO 

KE COMTRL+G,E:CT=C 

1750 FOR X=A TO M:FOR Y=A TO C:INPUTttl 



i2 
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,NCCX,Y) 

1760 POKE INTIN,X:POKE IHTIM+CT, NC CX, Y 

) !UDI5Y5Cfl) 

1770 CT=CT+C:IF Y=C THEM CT=Y 

1780 NEXT YjX:CL05E:C0L0R B:P$=FSCBJ+F 

$(C) 

1790 GOTOXY K+J,M:MRITE PS:GOSUB PAUSE 

18G0 GOSUB BAR:G05UB CLEANUP:GOTO 720 

1810 GOTOXY P2,M!PRIHT KF$ : GOSUB PAUSE 

IRESUME 1780 

1820 SflUEDATft ; ' KKKKKKKMKKKKKKKKKMMKMmC 

XXMKKKXKKXMKKMXKKXKKKMXiOtMM 

1830 ER=A:GOSUB BAR : TH=J : GOSUB TXTHEIG 

HTlGOSUB GETNAME 

1840 GOTOXY R,M:WRITE M$ CJ) : OPEN "0" ,» 

1,NAME$ 

1850 FOR X=fl TO M:FOR Y=ft TO C : WRITEttl 

,NCCX,Y) :next y,x:close 

I860 OPEN ■■0",ttl,NflMElS:FOR X = ft TO M 
1870 PRINT ni,LN,D$;NC(X,A];CN$;NCCX,B 
);CN$;NC(X,C} 

1889 LN=LN+R1:NEXT:CL05E 

1890 COLOR ft:GOTOXY R,M:WRITE M$ ( J) : CO 
LOR B:P$=F$Cft)+FStC) 

1900 GOTOXY K+J,M:WRITE P$ : GOSUB PAUSE 

:GOSUB BAR 

1910 GOSUB CLEANUP:G0T0 720 

1920 SETFINISH : ' xkxxxxkxxxxxxxxxxxxmxx 

XKXXKKKXXKKXXXKKKXXKKMKXXKX 

1930 GOSUB BAR:IFS=A:F5I=fl:FLC=B:G0SUB 

SIF5TYLE: GOSUB SFINDEX 
1940 GOSUB SFCOLOR: GOSUB MAKESURE 
1950 IF PICK=E AND CHOICE=G THEN GOSUB 

RESETIT 
1960 IF PICK=F AND CHOICE=G THEN GOSUB 

ENDIT 
1970 GOSUB CLEAMUPrGOTO 720 
1580 ' XKKXXKKKXXXXKXXXXKKXKXK SUBROUTI 
HES XXXXXXXXXXXXXXXXXXXXXXX 

1990 MAKESURE; ' XXXXXXXXXXXXXXXXXXXXXXX 

XXKXXKXXXXXXXXXXKXXXXXXXXXX 

2000 COLOR B:GOTOXY P2+B,K:PRINT F$CI1 

IGOTOXY P2,P5:PRINT FS (G) 

2010 BX1=172 : BY1=133 ! BX2=212 ! BY2=150 : G 

OSUB BAR 

2020 BX1=BX1-B ! BY1=BY1-B ; BX2=BX2+B : BY2 

=BY2+B: GOSUB BAR 

2030 GOTOXY 28,P5!PRIHT FS CHJ : BX1=252 : 

BY1=133:BX2=285:BY2=150 

2040 GOSUB BAR:BX1=251:BY1=132:BX2=286 

:BY2=151: GOSUB BAR 

2050 GOTOXY P2,N:PRINT C$:GOSUB SMCURS 

OR 

2068 GOSUB SMBUTTON:IF BP=A THEN 2068 

2070 IF MY<134 OR MY>148 THEN 2060 ELS 

E COLOR A 

2080 IF MX>=174 AND MX<=2e8 THEN CHOIC 

E=G!X=P2!Y=P5 

2090 IF MX>=251 AND MX<=284 THEN CHOIC 

E=H:X=28:Y=P5 

2100 IF CHOICE=A THEN 2868 ELSE GOTOXY 

X,Y:PRINT FSCCHOICE) 
2118 WM=E: GOSUB SMMODE : COLOR B : GOTOXY 
X,Y:PRINT FSCCHOICEJ 
2128 PRINT CHR$(H} :GOSUB PAUSE:GOSUB H 

mcursor:return 

2138 getname : ' kxkxkxmxkxkxmxxxxkkkkkkk 

xxxxkkxxxxxxxxxxkxxkxkkkxkk 

2148 COLOR B:GOTOXY P2,J:PRINT M$ tl) : G 

OTOXY P2,P4:PRINT F$ CDJ 

2158 GOTOXY P2,M:PRINT FS CFJ : GOTOXY P2 

,P5:INPUT "■', NAMES 

2168 COLOR AzGOTOXY P2,M:PRINT FS IFJ : C 

OLOR B 

2178 FOR NM=B TO LENCNAME$1 

2188 IF MID$CNAME$,NM,BJ="." THEM ER=B 

:GOTO 2228 

2198 NEXT: IF LENCNAMESJ=A THEM SOUND B 

,m,e,g,b:sound b.a,a,a,a 

2208 if lencnames)=a then gosub barlgo 

sub CLEANUP: goto 720 



2210 IF LENCNAME$}>I OR UALCNAME$)>A T 

HEN ER=B 

2228 IF ER=B THEM GOTOXY P2,M:PRINT FS 

CEl :GOSUB PAUSE 

2238 IF ER=B AND PICK=C THEN LOADDATA 

2248 IF ER=B AND PICK=D THEN SAUEDATA 

2258 NAME1$=NAMES+" . BAS" : NAME$=NAMES+" 

.DAT":RETURN 

2268 CLEANUP i ' MXKKKXKKKXKKKXMXMXXKXXKK 

XXXXKXKKXXXXKKXKXXKKKXXKXKX 

2278 IF PICK=B THEN SX=40:5Y=110 

2280 BX1=157 : BY1=96 : BX2=381 : BY2=186 

2290 COLOR D:WM=C:IFS=B:FSI=B:FLC=A!TE 

=A:TH=K: GOSUB SMMODE 

2300 GOSUB SIFSTYLE;GOSUB SFINDEX;GOSU 

B sfcolor:gosub bar 

2310 GOSUB TXTEFFECTS: GOSUB TXTHEIGHT: 

PSzMSCPICKJ :G0SUB TXTPRINT 

2320 COLOR B:G0SUB TXTEFFECTS : GOSUB TX 

TPRINT 

2330 TE=I:GOSUB TXTEFFECTS : GOSUB PROMP 

T:RETURM 

2340 PROMPT ! ' KXKXMKKKKKKKKKKKMKXKXKKXM 

KXXXXXXXKXXXKKXKKXXKXXKKKXK 

2350 GOTOXY P1,K:PRINT MSCGJ:GOTOXY P2 

,P3:PRINT MSCH}:RETURM 

2360 PAUSE: ■ XXKKXXXXKKKXKXKXKMKXKKKKKK 

XXXXXXXXXXXXXMXKKKKXXKXXKXK 

2370 FOR TIME=A TO lOOO : NEXT : RETURN 

2380 SMBUTTON! ' XXXXXXXXXXXXXXXXXXXXXXX 

XXXXKXKXKXXXXXXKXXKXKKKXXXK 

2398 POKE C0NTRL,124:P0KE CONTRL+C,A:P 

OKE CONTRL+G,A 

2400 UDISYSCAJ : BP=PEEK CINTOUT) :MX=PEEK 

(PTSOUTJ 

2410 MY=PEEKCPTSOUT+C) : RETURN 

2420 SMCURSOR; ' XXXXXXXXXXXXXXXXXXXXXXX 

XXXXXXXXXXXXXXXXKXXXXXXKXXK 

2430 POKE CONTRL, 122: POKE COMTRL+C,A:P 

OKE CONTRL+G,B 

2440 POKE INTIM,A:VDISY5tA) :RETURM 

2450 HMCURSOR ; ' XXXXXXXXXXXXXXXXXXXXXXX 

XXXXXXXXXXXXXXXKKKXKXXXXKXM 

2460 POKE CONTRL, 123:P0KE CONTRL+C,A:P 

OKE CONTRL+G,A 

2478 UDISYSCAJ :RETURN 

2488 BAR : ' xxxxxxxxxxxxxxxxxxxxxxxxxxxx 

XXXXXXXXXXXXXXXXXXXXXXXXKXK 

2498 POKE CONTRL, ll:POKE CONTRL+C, C : PO 

KE CONTRL+K,B 

2588 POKE PT5IM,BX1:P0KE PT5IM+C, BYl : P 

OKE PTSIN+E,BX2 

2518 POKE PT5IN+G,BY2:UDISY5CAJ :RETURN 

2528 RFRECT! ' XXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxx 

2538 POKE CONTRL, 11: POKE CDNTRL+C, C : PO 

KE CONTRL-l-G,A 

2540 POKE CONTRL+K,ID:POKE PTSIN,RX1:P 

OKE PTSIM+C,RY1 

2550 POKE PTSIN+E,RX2:P0KE PTSIN+G,RY2 

2560 UDISYSCA) : RETURN 

2570 SIFSTYLE : ' XXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxx 

2580 POKE CONTRL, 23: POKE CONTRL+C, A : PO 

KE CONTRL+G,B 

2598 POKE INTIN,IFS:UDISYSCA) :RETURN 

2688 SFINDEX: ' KKXXXXKXKXXXKXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxx 

2618 POKE CONTRL, 24:PDKE CONTRL+C, A : PO 

KE CONTRL+G,B 

2628 POKE INTIN,FSI:VDISYSCA) :RETURM 

2630 SFCOLOR : ' KXKXXXXXXXXXXKXKXXKXKXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxx 

2640 POKE CONTRL, 25:P0KE CONTRL+C, A : PO 

KE CONTRL+G,B 

2650 POKE INTIM,FLC:UDISYSCA1 :RETURN 

2660 SHMQDE : ' XXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxx 

2670 POKE CONTRL, 32:P0KE CONTRL+C, A : PO 

KE CONTRL+G,B 

2680 POKE IMTIM, MM: UDISYS CA) : RETURN 
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2690 TXTEFFECT5 ; ' KKXKKKKXKlCMKKmCKMKKKK 

KKKMMKMKKKMKICMKKKKKKKKKMKMK 

2760 POKE CONTRL,106:POKE CONTRL+C,B:P 

OKE CONTRL+G,A 

2710 POKE INTIN,TE:UDISV5(A1 : RETURN 

2720 TXTPRINT; ■ KKKKKKKXXKXlOtKKMKMMKXKK 

XMMICMKKXKKMICKKKKKXKKMKKXKKK 

2730 POKE CONTRL.I:POKE CONTRL+C, B : POK 

E CONTRL+G,LENCP$} 

2740 FOR CH=A TO PEEK (CONTRL+G) 

2750 POKE IMTIH+tCH-B)»C,A5CtMIDSlP$,C 

H,B}] :NEXT 

2760 POKE PTSIH,5X;P0KE PTSIM+C, 5Y : UDI 

5YSCA) :RETURN 

2770 TXTHEIGHT: ' KMKKKKKKKKKXKKKKMKKICKK 

XKMXXXKKXXXXXXXXKKKKMKXXXXX 

2780 POKE CONTRL, 107 -.POKE CONTRL+C,a:P 

OKE CONTRL+G, B 

2790 POKE INTIN,TH:UDI5Y5tflJ IRETURN 

2800 SPLMIDTH! ' XXXKXKXKKKXKKMKXKKKKKXX 

KXXXXXXXXXXXXKXXXXXKXXXXKXK 

2810 POKE C0NTRL,16:P0KE CONTRL+C, B : PO 

KE CONTRL+G, A 

2820 POKE PT5IN,LN;UDISYS(A) IRETURN 

2830 SETCOLOR : ' XXKXXXXXXXXKKXXXKXXXXX 

XXXXXXXKKXMKKXXXKXXKXXXXXXX 

2840 IF NC(CI,IT]>1000 THEN NC(CI,IT1= 

A 

2850 IF NCCCI,IT}<A THEN NC CCI, IT] =100 



2860 POKE C0NTRL,14:P0KE CONTRL+C, A : PO 

KE CONTRL+G, E 

2878 POKE INTIN,CI:POKE INTIN+C, NC CCI, 

AJrPOKE INTIN+E,NC(CI,B1 

2880 POKE INTIN+G,NCCCI,C] :VI>I5YSCA} :R 

ETURN 

2898 RESETIT ; ' XXXXXKXKXXKKKXXKKXKXXXXK 

KMKKKKKKXMXKKXKKKXKKKKKXXMM 

2900 POKE C0NTRL,14:P0KE CONTRL+C, B : PO 

KE C0NTRL+G,E:CT=C 

2910 FOR X=A TO M:FDR Y=A TO C : POKE IN 

TIN,X 

2920 POKE INTIN+CT,DC(X,Y) :UDI5Y5CA} :N 

CCX,YJ=DCtX,Y) 

2930 CT=CT+C:IF Y=C THEN CT=:Y 

2940 NEXT Y,X: RETURN 

2950 NEHTITLE ; ' XXXXKXKXXKKKKXKKKXXXXXX 

KKKXKXXXKXXXXXKXXXXKXXXXXXK 

2960 Nn=GB:GINTIN=PEEK(Wn+Il rPOKE GINT 

IN+A,PEEKCSYSTAB+I) 

2970 POKE GINTIN + C,C:MMtt=GINTIN+E:NT$ = 

NT$+CHR5(A1 

2980 POKE MMtt,UARPTR(NT$} :GENSY5(105) : 

RETURN 

2990 ENPIT ; ' XMKKKXXKKXXXXMKKKKKKXXXXXK 

XXXXKXXXXMKKKKXKXKXKXXXXXXX 

3000 TE=A:TH=J:MM=B:G05UB TXTEFFECT5:G 

OSUB TXTHEIGHT 

3010 GOSUB SNN0DE:G05UB RESETIT : CLEARM 

C:NTS="0UTPUT" 
3020 GOSUB NEMTITLE: GOSUB SHCURSORlEND 



340 



UHiiig // uiamiii 

10 data 837, 214, 484, 358, 697, 
, 352, 889, 53, 292, 5021 

118 data 918, 12, 786, 997, 682, _,« 
, 343, 699, 494, 886, 5917 

218 data 278, 984, 349, 753, 782, 7, 

389, 328, 805, 591, 5178 

318 data 933, 798, 706, 136, 132, 71 
7, 43, 850, 86, 62, 4463 

410 data 391, 636, 182, 443, 234, 85 
2, 679, 122, 905, 460, 4904 

518 data 35, 205, 492, 672, 767, 976 
, 833, 400, 729, 745, 5854 

618 data 894, 18, 215, 475, 6, 453, 
833, 918, 221, 599, 4624 

718 data 374, 576, 727, 588, 727, 73 
6, 742, 574, 454, 562, 5988 

(4 



818 data 491, 663, 125, 64, 646, 823 
, 384, 784, 788, 887, 5495 

918 data 68, 799, 482, 418, 592, 417 
, 598, 578, 167, 273, 4384 

1818 data 314, 268, 275, 478, 683, 7 
48, 841, 988, 262, 444, 5277 

1118 data 389, 433, 376, 438, 371, 4 

34, 357, 586, 698, 258, 4252 

1218 data 711, 511, 971, 416, 867, 5 
17, 979, 421, 888, 516, 6717 

1318 data 988, 419, 985, 258, 166, 5 
56, 987, 736, 973, 161, 6141 

1418 data 714, 813, 358, 81, 184, 96 
4, 129, 362, 173, 784, 4422 

1518 data 615, 781, 322, 281, 434, 4 
73, 634, 658, 668, 658, 5444 

1618 data 681, 371, 575, 625, 229, 2 
36, 565, 848, 470, 8, 4688 

1718 data 722, 316, 698, 298, 717, 3 
64, 637, 242, 178, 888, 4972 

1818 data 576, 48, 328, 720, 874, 7, 

797, 77, 10, 504, 3933 

1910 data 436, 183, 424, 458, 30, 78 
7, 442, 393, 115, 52, 3320 

2818 data 481, 826, 472, 917, 296, 5 
99, 698, 226, 225, 389, 5129 

2118 data 715, 176, 976, 545, 178, 5 
86, 217, 512, 598, 358, 4845 

2218 data 735, 981, 457, 584, 148, 9 
95, 864, 48, 779, 829, 6332 

2318 data 653, 251, 524, 13, 864, 89 

2, 556, 131, 766, 383, 4953 

2418 data 982, 132, 759, 572, 124, 7 

63, 754, 744, 569, 94, 5413 

2518 data 163, 978, 557, 235, 128, 7 
56, 132, 562, 834, 978, 5387 
2618 data 568, 814, 996, 565, 798, 9 

64, 563, 782, 245, 772, 7059 

2710 data 761, 183, 285, 774, 708, 1 

3, 214, 784, 772, 99, 4593 

2810 data 571, 784, 70, 359, 374, 57 
3, 954, 699, 43, 297, 4724 
2910 data 560, 652, 641, 759, 144, 3 

35, 150, 857, 897, 181, 5176 
3010 data 191, 199, 398 



Mi\il:S!mC 



18 OPEN "I", ttl, "FILENAME" :X=8:CT=2 

28 POKE C0NTRL,14:P0KE CONTRL+2, O : POKE 

CONTRL+6,4 
30 WHILE X<>16:INPUT ttl,CD:POKE INTIN, 
X 

48 POKE INTIN+CT,CD:gDISY5C0J :CT=CT+2 
50 IF CT=8 THEN CT=2:X=X+1 
60 MEND: CLOSE 



10 data 999, 3 
3210 



10 data 999, 396, 75, 813, 197, 730, 
3210 



10 POKE C0NTRL,14:P0KE CONTRL+2, : POKE 

C0NTRL+6,4:CT32 
20 FOR X=0 TO 15:F0R Y=0 TO 2:READ CD 
30 POKE INTIN, X:POKE INTIN+CT, CD : UDI5Y 
SCO} 

40 CT=CT+2:IF Y=2 THEN CT=Y 
50 NEXT Y X 
lOOOO DATA COLOR DATA, COLOR DATA, COLOR 

DATA 
11088 DATA COLOR DATA, COLOR DATA, COLOR 

DATA 



LiAgHUms 



10 data 36, 436, 681, 344, 438, 
520, 2972 



517, 
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GFL CHAMPIONSHIP FOOTBALL 

by Mark Madlund, Scott Orr and Dennis Kirsch 

Gamestar, Inc. 

Distributed by Activision, Inc. 

2350 Bayshore Parkway 

Mountain View, CA 94039 

(415) 960-0410 

$44.95 

Medium or High Resolution 

520ST, 1040 ST (Joystick Required) 



The first time you boot up Gamestar's GFL 
Ctiampionstiip Football, it hias the same kind 
of impact as a blind-side tackle. But after be- 
coming more familiar with this football simula- 
tion, it sometimes seems as though the pro- 
gram's creators didn't quite connect on what 
could have been a very impressive touchdown 
pass. Had they done just a wee bit better, this 
program could have won the Super Bowl of 
computer sports simulations. 

The concept behind GFL Championship 
Football is what separates it from the rest of the 
pack of football simulations. The program's cre- 
ators deserve a lot of credit for going beyond 
the scope of other football games, which basi- 
cally allow you to pick up teams and starting 
lineups and call the plays. 

You do all that in this game too. But after you 
pick the plays— on offense, anyway— it's up to 
you to !un them as well. If the offensive play 
is a pass, you become the intended receiver; 
if it's a running play, you carry the ball; and if 
it's a kick, you're the one who has to boot it. 

Granted, a few other football simulations- 
even some created for cartridge-based home 
game systems— give the user some degree of 
control over on-screen activities. Typically, they 
present a view of most of the playing field as 
it would appear from above or from the side- 
lines and allow a player to manipulate an on- 
screen character or characters. 

GFL Championship Football, however, is 
unique in that it presents a perspective that puts 
you right in the middle of the action. If your 
team has the ball, you'll be placed right in the 
shoes of the ball carrier, intended receiver, pun- 
ter or kick returner. This perspective is effec- 
tive at conveying the feel of playing real foot- 
ball. It's up to you to run precise pass routes, 
hit the right holes on running plays, sidestep 
tacklers on kick returns and unload a punt be- 
fore it's blocked. 



On defense, your role is much more limited. 
Whether playing against the computer or a hu- 
man foe, you're limited to simply choosing 
alignments you hope will stop the opposing 
team's offensive progress. Once that's done, 
you don't even have to use the joystick until 
the next play. Although the field perspective re- 
mains the same, you just sit and watch while 
the computer manipulates the defensive play- 
ers according to the strategy you selected. 

By not allowing the joystick jockey to inter- 
cept passes and make tackles, GFL Champi- 
onship Football loses some of its luster. Since 
one of the game's primary objectives is to put 
the computer gamer right in the middle of the 
action, and since this is what really makes GFL 
Championship Football stand out from the 
crowd, it seems strange that you should be 
forced to sit back and watch whenever your 
team goes on the defensive. 

Another aspect of GFL Championship Foot- 
ball that I found awkward was its method of 
play selection. Whether you're on the offensive 
or defensive, you choose your plays with 
joystick and fire button after scrolling through 
an on-screen list of 34 possible offensive plays 
and 12 defensive alignments. In two-player 
games, either the defensive coach or offensive 
coach can make the first selection, but the 
offensive team will be penalized if a play is not 
called within 30 seconds. 

The problem here is that whenever a play 
or alignment is selected, it is visible to the op- 
posing coach. In real life, this would be like in- 
viting the opposing coach into your huddle. 
Since the element of surprise— particularly on 
offense— is so important in the real game of 
football, this aspect of GFL Championship Foot- 
ball is very unrealistic. The only concession to 
the importance of tricky play-calling is the pro- 
gram's 'audibilizing' option, whereby either 
coach can call one other play after his oppo- 
nent's first selection. 



This can marginally help catch an opponent 
off-guard, but it still doesn't allow you to stun 
the defense with a bomb at a time when your 
foe should be expecting a short run over the 
middle. Perhaps the game's designers felt that 
because the program doesn't allow joystick 
control over the defensive players, it would put 
the defensive team at too big a disadvantage 
if the offense were allowed such leeway. In any 
event, the design effectively eliminates an im- 
portant part of real football. 

Some other elements of real football are also 
missing from GFL Championship Football. 
Their absence doesn't dramatically detract from 
game play, but could bother football afficiona- 
dos who may be considering purchasing the 
program. Passes cannot be thrown to any play- 
er other than a wide receiver, and only the tail- 
back can carry the ball on running plays. There 
are also no provisions for making laterals, fake 
punts, fake field goals or running other trick 
plays such as quarterback sneaks or 
ends-around. 

My final criticism concerns the game's graph- 
ics. I feel somewhat guilty for registering this 
complaint, since the program's designers 
deserve plenty of credit for a graphic presen- 
tation that makes the player feel as though he 
or she is actually on the field running the plays. 
Nevertheless, the on-screen images are a little 
too cartoon-like for my taste. This was particu- 
larly noticeable on running plays, during which 
members of the offensive line seem to simply 
bob up and down, rather than block. 

These criticisms notwithstanding, the 
copy-protected GFL Championship Football 
(the program is warranted for 90 days and 
thereafter will be replaced for $7.50) is an out- 
standing football simulation. It meets the criteria 
of a good sports simulation, which is to say it 
accurately captures and conveys the look, feel 
and strategy of the sport on which it is based. 
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BATTLEZONE 

Atari Corp. 

1196 Borregas Avenue 

Sunnyvale, CA 94086 

Low or high resolution 

$29.95 
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Back in the days before sword-swinging Nin- 
jas and automotive games overran tlie arcades 
of America, there were games like Asteroids 
and Galaxian. They were simple games that 
made no attempt to leave the world of two 
dimensions. They lacked depth. In fact, most 
games of the time were like this. Then along 
came Atari with a 3-D tank simulator called Bat- 
tlezone, and for the first time an arcade game 
really caught my eye. The game, with its dark 
screen and none-too-bright green vector 
graphics— viewed through a targeting scope 
that shut out the rest of the world— had a sur- 
real mood about it. The animation was smooth, 
and the sense of depth was incredible. 

The game was a 3-D variation of the old Tank 
game that appeared in the late '70s. In Tank 
you took control of the title vehicle and tried to 
hunt down and destroy an enemy tank (usual- 
ly controlled by a second player). The view was 
strictly 2-D, from overhead, with very simple 
graphics. Battlezone was revolutionary be- 
cause it gave the player the perspective from 
inside thei tank (this clearly limited the game to 
one player at a time), moving over an obstacle- 
strewn landscape on a search-and-destroy mis- 
sion. Your view was limited to an arc forwards, 
but a radar scope provided vital information on 
the position of out-of-sight enemies and their 
shots. The primary menace came in the form 
of enemy tanks and "supertanks," along with 
annoying cruise-type missiles that periodically 



charged your tank. Saucers, harmless but 
worth many points, provided a tempting dis- 
traction. The idea was simple; Blast the ene- 
my without getting blastedl 

The ST version is pretty true to the arcade 
original in many respects. In fact, a number of 
strategies used by players of the arcade 
machine do, in fact, work on the ST version, 
with slight modifications. 

The graphics are not exactly like the arcade 
original's, but they're close enough. All the ene- 
my vehicles are rendered in wireframe vector- 
type graphics, but the distant mountains and 
screen borders are"solid." The upper part of 
the screen, which contains the radar scope and 
scoring boxes, is rendered in relief and paint- 
ed in camouflagel Further, on this Battlezone 
you can see the front of your tank's "treads" 
at the bottom of the screen, turning appropri- 
ately depending on how you are moving. The 
animation isn't as smooth as in a game like Star- 
glider, but it's not bad. There are six skill lev- 
els to choose from, and options of one- or two- 
player games. When you quit to the Desktop, 
the high score is saved to disk. 

The biggest problem with Battlezone for the 
ST is the controls. The arcade game featured 
twin levers, allowing the player to control each 
tank tread, putting it into forward or reverse, 
permitting complex maneuvers. The single 
joystick control on the ST is clumsy by com- 
parison. You can play the game with the key- 
board, using the cursor keys for movement and 



the space bar for "fire," but that control is no 
better, and in some ways worse, because the 
program can apparently ready only two keys 
at the same time. So if you're holding down the 
up and left arrow keys to go forwards and turn 
left, pressing "fire" will avail you nothing! You'll 
have to release one of the other keys first. Don't 
get me wrong, the game is perfectly playable 
with a joystick, but the control just isn't the same 
with one stick. The game allows two players, 
either using two sticks or sharing one. Unfor- 
tunately no mode was included where a sin- 
gle player could plug two sticks into his ST and 
emulate the arcade controls. 

This game was developed for Atari by the 
Caesar Studio in Budapest, Hungary, and 
project management was by Andromeda Soft- 
ware (whose name appears on the game's ti- 
tle screen). The graphics for the game were 
designed with Art Director (also by Caesar 
Studio), 

Battlezone is nowhere as complex as Star- 
glider or Arcticfox, but that doesn't limit its ap- 
peal. Personally, I like blast-em games that in- 
volve some degree of strategy, but don't stray 
into the overly complex. Battlezone is simple, 
and challenging enough to merit attention, par- 
ticularly at the low price at which Atari offers 
it. A final note: The game is not copy-protected, 
and the instructions urge you to make a back- 
up and not use the master disk. This seems to 
be Atari's usual policy now, and i applaud it 
heartily. Si 
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4 1 YEAR FOR ONLY $28 

SAVE $14 OFF THE COVER PRICE 

^ 1 YEAR WITH DISK ONLY $ 1 05 



SAVE TIME AND MONEY 
SUBSCRIBE TO ST-LOG 

SAVE $14 OFF THE 
COVER PRICE WITH 
THE CONVENIENCE 
OF HAVING ST-LOG 
DELIVERED DIRECT- 
LY TO YOUR DOOR 
BEFORE IT EVEN HITS 
THE NEWSSTANDS! 
GET THE MOST OUT 
OF YOUR COMPUTER 
SUBSCRIBE TO 
ST-LOG 
TODAY! 



I D 1 YEAR @ $28 — SAVE $14! 
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: D 1 YEAR WITH DISK @ $105 
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4690 


OPEM 1,8,0 


LBUFF+4 


5438 


INY 


4700 


LDX 


tt$10 






5448 


INX 


4710 


J5R 


PUTBYTES 






5450 


JMP CN2L00P 


4720 


CPY 


»1 






5455 


,■ Filenawe now in LBUFF, nl in 


4730 


BEQ 


DUP0K3 






5456 


; NIBUFF, n2 in N2BUFF. 


4740 


J MP 


ERROR 






5468 


CN2D0NE 


4750 


DUP0K3 








5478 


;0pen lOCB 1 for output 


4760 


CLOSE 1 






5488 


OPEN l,8,e,CBUFF 


4770 


PRINT 0, "Duplication coMple 


5498 


/ 


te." 










5588 


BPUT 1,NNN,2 


4780 


J MP 


MAINLOOP 






5518 


;Now convert second nuwber to F 


4790 


MDOS 








5520 


t 


4800 


LDA 


LBUFF+4 






5530 


LDA tt <N2BUFF 


4810 


5Tfl 


DOSSYS+1 






5540 


STA INBUFF 


4820 


OPEN 1,8,0, 


DOSSYS 


5550 


LDA tt >N2BUFF 


4830 


CPY 


ttl 






5560 


STA INBUFF+1 


4840 


BNE 


MDOSERR 






5570 


LDA ttO 


4850 


CLOSE 1 






5580 


STA CIX 


4860 


PRINT 0,"D0S 


SYS file writt 


5590 


JSR AFP 


en." 










5600 


JSR FPI 


4870 


J MP 


MAINLOOP 






5618 


LDA FRO 


4880 


MDOSERR 








5628 


STA PTR 


4890 


J MP 


ERROR 






5638 


LDA FRO+l 


4900 


MMEM 








5640 


STA PTR+1 


4910 


LDA 


LBUFF+4 






5650 


JSR IFP 


4920 


CMP 


tt'8 






5660 




4930 


BNE 


MMEMSAU 






5670 


jMove it to FRl 


4940 


PRINT e,"Can 


t write MEM.SA 


5688 




y to 


drive 8 


1 ■■ 






5698 


JSR FMOUE 


4950 


J MP 


MAINLOOP 






5788 




4960 


MMEMSAV 








5710 


; Convert 1st nuHber to FP 


4970 


STA 


MEMSAV+1 






5728 




4980 


OPEN 1,8,0, 


MEMSAU 


5730 


LDA n <N1BUFF 


4990 


CPY 


ttl 






5740 


STA INBUFF 


5000 


BNE 


MMEMERR 






5750 


LDA tt >N1BUFF 


5018 


BPUT 1,ENDC0MD0S,5625 


5768 


STA INBUFF+1 


5020 


CPY 


ttl 






5770 


LDA ttO 


5030 


BNE 


MMEMERR 






5780 


STA CIX 


5040 


CLOSE 1 






5790 


JSR AFP 


5050 


PRINT 0,"MEM. 


SAg file writt 


5888 




en." 










5810 


Jconvert tt to Integer 


5060 


J MP 


MAINLOOP 






5820 


5070 


MMEMERR 








5830 


JSR FPI 


5080 
5090 


J MP 
BSAUE 


ERROR 






5840 
5850 


BPUT 1,FR0,2 
BPUT 1,PTR,2 


5100 


LDY 


»6 






5860 




5110 


LDX 


no 






5878 


LDX tt$18 


5120 


BSyLOOP 








5888 


LDA FR8 


5130 


LDA 


LBUFF,Y 






5898 


STA ICBADR,X 


5140 


CMP 


«', 






5980 


LDA FR8+1 


5150 


BEQ 


BENDFL 






5918 


STA ICBADR+1,X 


5160 


STA 


CBUFF,X 






5920 




5170 


INY 








5930 


; Convert 1st tt back to FP 


5180 


INK 








5940 




5198 


J MP 


BSULOOP 






5950 


JSR IFP 


5288 


BENDFL 








5960 


JSR FMOVE ;Put it in FRl 


5218 


LDA 


ttEOL 






5970 


^— ^ ^ ^ ^^ ^ m u ■■% ^k 


5228 


STA 


CBUFF,X 






5980 


jConvert 2nd tt back to FP in FR 


5238 


LDX 


ttO ; 


Copy 1st tt 1 


5990 




5248 


INY 








6000 


LDA tt <N2BUFF 


5250 


CNILOOP 








6010 


STA INBUFF 


5260 


LDA 


LBUFF,Y 






6020 


LDA tt >N2BUFF 


5270 


CMP 


«■, 






6030 


STA INBUFF+1 


5280 


BEQ 


CNIDONE 






6048 


LDA tte 


5290 


STA 


N1BUFF,X 






6858 


STA CIX 


5300 


INY 








6060 


JSR AFP 


5310 


INK 








6070 




5320 


J MP 


CNILOOP 






6880 


;Do subtraction 


5330 


CNIDONE 








6898 




5340 


LDA 


«EOL 






6108 


JSR FSUB 


5350 


STA 


N1BUFF,X 






6116 


JSR FPI ;Convert to int 


5368 


LDX 


»8 






6120 




5378 


INY 








6138 


LDX tt$18 


5380 


CN2L00P 








6148 


INC FRO 


5398 


LDA 


LBUFF,Y 






6158 


LDA FRO 


5488 


STA 


N2BUFF,X 






6168 


BEQ INCHI 


5418 


CMP 


ttEOL 






6178 


BNE STORIT 


5428 


BEQ 


CN2D0NE 






6188 


INCHI 



a 



lUNE 1988 ' A.N.A.L.O.G. COMPUTING 





JV[-IZ> 





6190 


INC FRO+l 


6861 


.BYTE E0L,"-8J",E0L 




6200 


5T0RIT 


6878 


•BYTE "hXHM = 4-di9it 


hex nu" 


6210 


STA ICBLEN,X 


6871 


.BYTE "Mber",EOL 




6220 


LDft FR0+i 


6880 


.BYTE "All input MUST 


be in " 


6230 


5Tft ICBLEN+1,X 


6881 


.BYTE "deciMal.",EOL 




6240 


LDA ttCPBINR 


6898 


EHDLST 






6250 


STA ICCOM,X 


6908 


GO 






6260 


JSR CIO ;Put bytes 


6918 


LDA 


tt <LBUFF+3 




6270 


PRINT 0, "Enter RUN address 


6928 


STA 


INBUFF 




Cpress RETURN if none) " 


6938 


LDA 


tt >LBUFF+3 




6280 


INPUT 0,LBUFF 


6948 


STA 


INBUFF+1 




6290 


LDA LBUFF 


6958 


LDA 


tt8 




6300 


CMP nEOL 


6960 


STA 


CIX 




6310 


BEQ GOMNLP 


6970 


JSR 


AFP 




6320 


LDA « <LBUFF 


6980 


JSR 


FPI 




6330 


STA INBUFF 


6990 


JMP 


CFRO} 




6340 


LDA tt >LBUFF 


7000 


STATUS 






6350 


STA INBUFF+1 


7010 


BPUT 8,MUERMSG,14 




6360 


LDA no 


7828 


LDA 


HVERIFV 




6370 


STA CIX 


7838 


CMP 


tt88 




6380 


JSR AFP 


7840 


BEQ 


UEROFF 




6390 


JSR FPI 


7058 


PRINT 0,"ON" 




6400 


LDA FR8 


7868 


JMP 


DRIVES? 




6410 


STA RUNDAT 


7878 


UEROFF 






6420 


LDA FR0+1 


7888 


PRINT 8, "OFF" 




6430 


STA RUNDAT+1 


7890 


DRIUES? 






6440 


BPUT 1,INIDAT,6 


7100 


BPUT 8,DRIUEMSG,15 




6450 


GOMNLP 


7110 


LDA 


DRUBYT 




6460 


CLOSE 1 


7120 


AND 


ttSOl 




6470 


PRINT 0,"File saved." 


7138 


BEQ 


NXTBIT 




6480 


JMP HAINLOOP 


7148 


LDA 


»'l 




6490 


BOOT 


7158 


JSR 


PRBIT 




6500 


OPEN 1,4,0,"D:AUTORUN.SYS" 


7160 


NXTBIT 






6510 
6520 
6530 


CPY «170 
BEQ DOBOOT 
CLOSE 1 


7170 
7180 
7190 


LDA 
AND 
BEQ 


DRVBYT 

»$82 

NXTBIT2 




6540 


PRINT ■'□AUTORUH.SYS file 


7208 


LDA 


tt'2 ' 




already exists!" 


7218 


JSR 


PRBIT 




6550 


JMP MAINLOOP 


7220 


NKTBIT2 






6560 


DOBOOT 


7230 


LDA 


DRUBYT 




6570 


CLOSE 1 


7248 


AND 


tt$e4 




6580 


OPEN 1,8,0,"D:AUTORUH.5YS" 


7258 


BEQ 


NXTBIT3 




6590 


ldy tte 


7268 


LDA 


tt'3 




6600 


BOOTLOOP 


7278 


JSR 


PRBIT 




6610 


LDA LBUFF+5,Y 


7288 


NXTBIT3 






6620 


STA FILEDAT,Y 


7298 


LDA 


DRUBYT 




6630 


CMP ttEOL 


7388 


AND 


tt$08 




6640 


BEQ DONEBOOT 


7318 


BEQ 


NXTBIT4 




6650 


INY 


7328 


LDA 


»'4 




6660 


JMP BOOTLOOP 


7338 


JSR 


PRBIT 




6670 


DONEBOOT 


7348 


NXTBIT4 






6680 


BPUT 1, PROG, 73 


7350 


LDA 


DRUBYT 




6690 


CLOSE 1 


7360 


AND 


tt$80 




6700 


JMP MAINLOOP 


7378 


BEQ 


ENDDRIUE 




6710 


HELP 


7388 


LDA 


»'8 




6726 


BPUT B,HELPLST,ENDLST-HELPL 


7398 


JSR 


PRBIT 




5T 

6730 
6740 
6750 




7400 


ENDDRIUE 




JMP MAINLOOP 
HELPLST 

.BYTE "IS" 


7410 
7420 
7430 


PRINT 8 

BPUT e,MAXFILES,54 
LDA SABYTE 




6760 


.BYTE " LOCK D ! f i lenawe . ext" 


7448 


STA 


FRB 




6761 


.BYTE " DIRn",EOL 


7458 


LDA 


tt0 




6770 


.BYTE " UNLOCK D : f i lenaHe . ex" 


7468 


STA 


FR0 + 1 




6771 


.BYTE "t FORMATn",EOL 


7478 


JSR 


IFP 




6780 


.BYTE " DELETE D : f i lenaMe . ex" 


7488 


JSR 


FASC 




6781 


.BYTE "t WDOSn",EOL 


7498 


LDY 


ttSFF 




6790 


.BYTE " RENAME D!Old,new" 


7588 


MAXLOOP 






6791 


.BYTE " HMEMn",EOL 


7518 


INY 






6800 


.BYTE " BSAUE D : fi le, begin, e" 


7520 


LDA 


LBUFF, Y 




6801 


.BYTE "nd REBOOT", EOL 


7530 


BPL 


MAXLOOP 




6810 


.BYTE " BLOAD D : f i lenawe . ext" 


7540 


AND 


ttS7F 




6811 


.BYTE " GO addr",EOL 


7550 


STA 


LBUFF, Y 




6820 


.BYTE " COPY D:f ilel,D2: file" 


7560 


LDA 


ttEOL 




6821 


.BYTE "2C/1 BASIC", EOL 


7570 


STA 


LBUFF+1,Y 




6830 


.BYTE " DUP D!f ilenane.ext" 


7580 


PRINT 0, LBUFF 




6831 


.BYTE " STATUS", EOL 


7590 


JMP 


CHANGEM 




6840 


.BYTE " BOOT fi lenaMe . ext" 


7600 


PRBIT 






6841 


•BYTE " CLICK", EOL 


7618 


STA 


BUFF2 


. 


6850 


.BYTE " ?hxnM 


7628 


BPUT 8,BUFF2,2 




6851 


.BYTE " HELP", EOL 


7638 


RTS 






6860 


.BYTE EOL,"n=drive nuMber CI" 


7648 


CHANGEM 
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if 



7658 

7668 

y on/Off 

7678 

7688 

7698 

7788 

7710 

7728 

7738 

7748 CHCeNTl 



PRINT 8 

PRINT 0, "Toggle Write Uerif 
CY/N)?" 

INPUT 8,CBUFF 
LDA CBUFF 
CMP tt'Y 
BEQ CHMU 
CMP »EOL 
BNE CHCONTl 
JMP MAINLOOP 



JMP CHDRU5? 



7758 

7768 CHWU 

7778 LDfl WyERIFY 

7788 EOR tt$87 

7798 5Tft MUERIFY 

7888 CHDRUS? 

7818 PRINT 

es CY/N)?" 

7828 INPUT 8, CBUFF 

7838 LDA CBUFF 

7848 CMP »'Y 

7858 BEQ CHNGDR 

7868 CMP ttEOL 

7878 BNE CHC0NT2 

7888 JMP HAINLOOP 

7898 CHC0NT2 



8, "Change active driv 



7988 



JMP CHFLS? 



7918 CHNGDR 

7928 PRINT 8, "Type the drive nuM 

bers, one at a tine, pressing RETURN af 

ter each one," 

7938 PRINT 

e finished." 

7948 LDA tt8 

7958 STA DRNUM 

7968 DRLOOP 



8, "Enter 8 when you'r 



7978 




INPUT 0, CBUFF 


7980 




LDA 


CBUFF 


7998 




CMP 


tt'0 


8808 




BEQ 


DONEDR 


8018 




CMP 


«"1 


8828 




BEQ 


DRl 


8838 




CMP 


tt'2 


8848 




BEQ 


DR2 


8850 




CMP 


tt'3 


8068 




BEQ 


DR3 


8070 




CMP 


tt'4 


8080 




BEQ 


DR4 


8890 




CMP 


«'8 


8100 




BEQ 


DR8 


8110 




JMP 


DONEDR 


8120 


DRl 






8130 




LDA 


ttl 


8140 




CLC 




8150 




ADC 


DRNUM 


8160 




STA 


DRNUM 


8170 




JMP 


DRLOOP 


8180 


DR2 






8190 




LDA 


»2 


8200 




CLC 




8210 




ADC 


DRNUM 


8220 




STA 


DRNUM 


8230 




JMP 


DRLOOP 


8240 


DR3 






8250 




LDA 


tt4 


8260 




CLC 




8270 




ADC 


DRNUM 


8280 




STA 


DRNUM 


8290 




JMP 


DRLOOP 


8300 


DR4 






8318 




LDA 


tt8 


8320 




CLC 




8330 




ADC 


DRNUM 


8340 




STA 


DRNUM 


8350 




JMP 


DRLOOP 


8360 


DR8 






8370 




LDA 


ttl28 


8380 




CLC 




8390 




ADC 


DRNUM 


8400 




STA 


DRNUM 



8410 JMP DRLOOP 
8420" DONEDR 



8430 
8440 



8470 
8480 
8490 
8500 
8510 



LDA DRNUM 
STA DRUBYT 

8450 CHFLS? 

8460 PRINT 

iles that can be 

y?" 

INPUT 
LDA CBUFF 
CMP «'Y 
BEQ CHFLS 
JMP MAINLOOP 



8, "Change nuMber of f 
open siMultaneousl 

0, CBUFF 



8520 CHFLS 

8530 

you want open at 



PRINT 0,"How Many files do 



INPUT 0, CBUFF 
LDA tt <CBUFF 
STA INBUFF 
LDA tt >CBUFF 
STA INBUFF+1 

LDA no 

STA CIX 
JSR AFP 
JSR FPI 
LDA FRO 
STA 5ABYTE 
JMP MAINLOOP 



8540 

8550 

8560 

8570 

8580 

8590 

8600 

8610 

8620 

8630 

8640 

8650 

8660 CLICK 

8670 LDA NOCLIK 

8680 EOR tt$FF 

8690 STA NOCLIK 

8700 JMP MAINLOOP 

8710 HEKDEC 

8720 LDA LBUFF+1 

8730 JSR COMP 

8740 STA HIBYTE 

8750 LDA LBUFF+2 

8760 JSR COMP 

8770 STA LOBYTE 

8780 JSR MULT 

8790 STA FR0+1 

8800 LDA LBUFF+3 

8810 JSR COMP 

8820 STA HIBYTE 

8830 LDA LBUFF+4 

8840 JSR COMP 

8850 STA LOBYTE 

8860 JSR MULT 

8870 STA FRO 

8880 JSR IFP 

8890 JSR FASC 

8900 LDY tt$FF 

8910 HDLOOP 
INY 

LDA LBUFF,Y 
BPL HDLOOP 
AND tt$7F 
STA LBUFF,Y 
LDA »EOL 
STA LBUFF+1, Y 

PRINT 0,LBUFF 
JMP MAINLOOP 



one tine tl-7J?' 



8920 

8930 

8940 

8950 

8960 

8970 

8980 

8990 

9000 

9010 COMP 

9020 

9030 

9040 

9050 

9060 

9070 MULT 

9080 

9090 

9100 

9110 

9120 

9130 

9140 

9150 

9160 ENDCOMDOS 



SEC 

SBC 1*48 

TAX 

LDA HEX,X 

RTS 

LDA HIBYTE 
ASL A 
ASL A 
ASL A 
ASL A 
CLC 

ADC LOBYTE 
RTS 



9170 
9188 



*= $82E0 ;Run address 
■MORD BEGIN 
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GAMES 2 

Retrofire 

Livewire 

BncWayer's Nightmare 

Knights and Cha/ices 

Air Attack 

Avalanche 



C^^Su^e ^^ 



AeO' 
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GRAPHICS 

Sketch Pad 

Graphic Violence! 

Multicolor Screen Generator 

Moving Missiles in BASIC 

Stars 3-D 

Bar Chart Subroutine 

Solid States 

Scredit 

Graph E's 

P/M Creator/Animator 
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fe> 
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To order, send $9.95 per disk 

(plus $2.50 per order shipping and handling) 
NO CODs ACCEPTED 
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Colonial Conquest 

SSI 

1 046 North Rengstorff Avenue 

Mountain View, CA 94043 

512K Disk $59.95 



While SSI has been a prolific producer of war 
simulations for the 8-bit, it has, for some time, 
neglected the ST, I don't mean to imply that 
it has produced nothing for this, the greatest 
gaming machine yet produced (as those of you 
still trapped in Phantasie can well attest). No, 
I mean that they have yet to produce an ST war 
simulation, putting this graphics and speed 
workhorse to task in the genre which has al- 
ways been their forte. Fortunately, they have 
now begun to rectify this oversight. 

Colonial Conquest is the first in what I hope 
will be a long line of war simulations for the ST. 
And while this game lacks the complexity, and 
hence the realism of some of SSI's greatest 
simulations, it more than makes up for it with 
great graphics and a simple user interface. Bas- 
ically a complex version of the classic board 
game Risk, Colonial Conquest pits up to six 
players against one another and the computer 
in a bid to take control of the world. 

The era is 35 years around the turn of the 
last century (1880-1914, to be precise). The 
world is dominated by six major powers: En- 
gland, Germany, France, The United States, 
Japan, and Russia, each ready, willing and 
able to build and expand their own empire. The 
industrial revolution has created a need for raw 
materials to supply and people to consume the 
output churning from the thousands of new fac- 
tories. Increasing one's empire in size and 
population is seen as an easy and simultane- 
ous solution to each problem, as well as being 
a patriotic cause to rally the populace behind, 
helping them to forget, at least temporarily, their 
monotonous, factory-enslaved lives. And at this 
time in history, some parts of the world, espe- 
cially Africa, were still unexplored and ripe for 
the picking. But while this historical backdrop 
is complex, the program itself is suprisingly 



simple. 

Game play takes place in three phases; 
build, movement, and combat. This is a game 
of men and money, much like the games 
played by real world leaders. Individuals make 
little difference; it is the masses and the mega- 
bucks that rule. Each country has a given 
amount of each, and those with a lot of both 
have large naval fleets as well. Those with little 
are easy targets. In the building phase, you 
strengthen your units, lend money to allies, spy 
on enemies to learn their strengths, and try to 
subvert other countries' control over minor na- 
tions. Money ofttimes sways the allegiances of 
these tiny, impoverished nations. After decid- 
ing on a strategy (which, in multiple player 
games, could require treaties and trust between 
rival nations as well as the occasional back- 
stab), you enter the movement phase. Here you 
move armies, 1 ,000 men at a time, to adjacent 
areas. You are allowed 20 such moves. Final- 
ly, the combat phase determines the outcomes 
of any battles arising from the movement of 
troops into enemy territories. At the end of each 
round, each player is scored, gaining points 
for battles won, losing them for battles lost. 
Points are also awarded for taking control of 
an area, the exact amount determined by refer- 
ence to the value and strength of the con- 
quered nation. 

The screen display is superb. The monitor 
is filled with a world map containing the 125 
major and minor countries. Each of the six 
major countries is represented by a color; the 
minor ones are either a neutral grey or flying 
the colors of one of the big six. While only a 
portion of the map is visible at one time, touch- 
ing the arrow against an edge of the screen 
scrolls the display up and down, left and right. 
In fact, by scrolling left and right you can 
repeatedly circle the earth, scrolling so smooth- 



ly that some might become dizzy. The display 
resolution of the icons representing ports, sup- 
ply centers, and fleets is so clear that one can't 
help but wonder what future simulations will be 
like, when control of thousands of units could 
literally fill the screen with these markers. 

Like the screen images, documentation is 
likewise superb. The 26-page manual is or- 
ganized simply and efficiently, with a page of 
short rules for the impatient, followed by a ta- 
ble of contents leading you to the various sec- 
tions detailing the intricacies of the three 
phases, the implications of allowing a computer 
to control one or more major countries, and 
helpful hints and strategies. The last half of the 
booklet is devoted to an informative and en- 
tertaining essay on the politics and motivations 
of the era. Reading this section captures your 
imagination and fleshes out the blood battles 
waged on your screen. Tables and appendices 
contain the various values assigned to each 
country, and two maps (one plastic covered) 
show the world power structure in each of the 
historical scenarios. Even with all the instruc- 
tion, I found it a little difficult to pick up on the 
game, probably due to the sparse ST-specific 
instructions, which failed to completely detail 
when to use the various windows and menus. 
Also, although you could play solo against the 
computer, the game yields the most enjoyment 
when three to six play, due to the fact that 
diplomacy plays a big part of the game. 

But despite these blemishes. Colonial Con- 
quest is an adequate war simulation. Although 
I'm dying for a complex simulation to make the 
crossover to this new medium, I am certain that 
with time more realistic, more strategic simula- 
tions will be offered. Until then, this one should 
satisfy all the war buffs. And if this is any indi- 
cation of the future, then SSI is destined to con- 
quer the ST. 
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uick, what values 
^ do you store at 
what addresses to enable play- 
er/missile graphics with single- 
line resolution? That's okay, I 
don't remember either. How- 
ever, I learned long ago that the 
next best thing to knowing some 
useful tidbit of information is 
knowing where to find it when 
you need it. 
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Bonzo (from "Attack of the Suicidal Road-Racing Aliens" 

is fed up with being squashed. 
Today he shoots back. 



There are two ways to remember the 
useful tidbits required for player/mis- 
sOe graphics. The first is to keep a copy 
of Mapping the Atari by Ian Chadwick 
(COMPUTE! Books) handy. This book 
is absolutely indispensible for anyone 
programming an 8-bit Atari in assem- 
bly language (or any other language). 

Even better, use your computer's 
memory instead of your own. Today I 
present a baker's dozen of macros that 
help you use player/missle graphics 
(PMG), display list interrupts (DLI), and 
vertical blank interrupts (VBI) in assem- 
bly programs. These macros simulate 
some of the commands Atari BASIC 
should have had but didn't. Many novice 
programmers are daunted by the minu- 
tiae associated with setting up PMG, but 
these macros are useful shortcuts to 
success. Along the way, we'U see how 
to manipulate missiles too. You see, 
Bonzo (from "Attack of the Suicidal 
Road-Racing Aliens") is fed up with be- 
ing squashed. Today he shoots back. 

Ir-is^cmicricdi^ 

We'd best begin with the "Whoops!" 
category. There's a small bug in the 
MOVE macro from two months ago. 
Please add this line to your MAC- 
RO.LIB file: 

6115 LDY #0 
Sorry about that. 

C -■ ^"ttui n^ 

Listing 1 contains the promised 13 
new graphics macros. I decided to be- 
gin a new file of macros to be .INCLUD- 
Ed in future assembly programs, since 
the old MACRO. LIB file has become 
pretty long. Please enter Listing 1 into 
a file named GRAPHICS.LIB. If you 
write a program that doesn't use any of 
these macros, simply omit the .liV- 
CLUDE statement for this file. 

If you're using the RAM disk file copi- 
er from last time, you should add 
D1:GRAPHICS.LIB to the Ust of files to 
be copied from the boot disk to the 
RAM disk. We can use the append fea- 
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lure of the DOS menu selection for 
copying files. Go to the DOS menu, 
choose item C to copy a file, and type: 

E:,D:RAMDISK.FIL/A 

This notation means that we want to 
copy from the screen editor (that is, the 
keyboard) to fde DrRAMDISK.FIL, ap- 
pending whatever we type on the key- 
board to the present contents of 
DrRAMDISK.FIL. The cursor will then 
move to the beginning of the next line. 
Type: 

D1:GRAPHICS.LIB 

Press RETURN, and press control-3 to 
signify the end of the file. Your modi- 
fied RAMDISK.FIL file should be writ- 
ten to the disk at this point. To verify 
that the change was made, copy from 
D:RAMDISK.FIL to E: and make sure 
all three Unes appear: 

D1:MACR0.LIB 

D1:SUBS.LIB 

D1:GRAPHICS.LIB 



C ,-■ r~^|z>|-~i i<=:^ 

Let's walk through the 13 macros in 
Listing 1 . Most of the concepts wUl be 
familiar from our earlier graphics dis- 
cussions, but I want to review a few 
points. These macros are all in MAC/65 
format, but you should be able to adapt 
them to other macro assemblers with a 
Uttle effort. The equates used by the 
macros are in Lines 170-280. You'll 
get a duplicate label error if any of these 
equates also appear elsewhere in your 
program. 

The first entry is VBION in Lines 
320-490. This routine simply turns on 
a vertical blank interrupt routine in 
your program. It requires one 
parameter, the address of the beginning 
of the VBI. I always label the beginning 
of my VBI routines as (guess what) 
"VBI"; so my calls to this macro are in 
the form :VBION VBI. It seems redun- 
dant, but it really isn't. All this routine 
does is insert yoiu* custom VBI routine 



into the deferred VBI vector so it gets 
executed every sixtieth of a second, as 
it should. 

The obvious counterpart is the next 
macro, VBIOFF, which requires no pa- 
rameters. It simply resets the deferred 
VBI vector to the system default, there- 
by disabling the user- written routine. 
For both VBION and VBIOFF, you can 
change the LDA #7 statement to LDA 
#6 if you wish to use an immediate, 
rather than deferred, VBI routine. See 
Boot Camp in issue 49 for a discussion 
of VBIs. 

Similarly, the DLION macro (Lines 
660-860) enables display list interrupts 
by setting bit 7 at address NMIEN 
($D40E), Lines 780-800. DLION ac- 
cepts one parameter, the address of 
your first DLI routine. I always call this 
(guess what) "DLI," so my use of this 
macro is in the form: DLION DLI. That 
address is stored in locations VDSLST, 
$200-1201 (Lines 810-840). Recall 
that if you're using multiple DLIs in the 
same screen, each DLI must itself store 
the address of the next DLI in VDSLST. 
Of course, it's still up to you to indicate 
the mode lines where you want the DLIs 
to occur, by setting bit 7 of each mode 
line instruction in the display list. See 
issue 46 for a DLI refresher. 

As you might expect, the DLIOFF 
macro simply clears bit 7 in NMIEN if 
it's already set. Be careful, though. If 
you use DLIOFF before DLION, you 
can actually enable DLIs rather than dis- 
abling them. If you use these macros in 
the sensible order, all wiU be dandy. 

Now to the player/missile graphics 
aids. SETPCOLOR (Lines 1020-1410) 
is virtually identical to our old SET- 
COLOR macro. However, SETP- 
COLOR sets one of the player color 
registers, whereas SETCOLOR process- 
es a playfield color register. The fotu"- 
player color registers are at addresses 
$2CO-*2C3, PCOLR0-PCOLR3. In 
case you ever need to change player 
colors using display list interrupts, these 
locations are the shadow registers for 
COLPM0-COLPM3at$D012-$D015. 
Each color register controls the color of 
both a specific player and the missile as- 



sociated with that player. Use SETP- 
COLOR just like you would SET- 
COLOR, with three parameters for the 
player niunber (0-3), hue (0-15) and lu- 
minance (0-15). Each parameter can be 
either a value or an address containing 
the values to be used. 

The PWIDTH macro. Lines 
1450-1660, lets you set each player in- 
dependently to be normal (8 pixels), 
double (16 pixels), or quadruple (32 
pixels) wide. Parameter 1 is the player 
number (0-3), and parameter 2 is the 
width to use (1, 2, or 4). The width of 
each player is determined by the bit pat- 
tern stored in bits and 1 at addresses 
SIZEPO— SIZEP3 ($D008-$D00B).A 
bit pattern of 00 or 10 selects normal 
width; 01 doubles the player's width; 
and 11 produces quadruple width. 

Several steps are required to actually 
enable player/missile graphics even af- 
ter you've set up the player shapes, sizes 
and positions. Macro PMGON (Lines 
1700-1880) does the dirty work. It 
takes one parameter, the address of the 
beginning of the block of RAM you 
reserved for PMG storage. Amazingly, 
I always give this address the label 
"PMG." Lmes 1810-1820 tell the 
operating system where to find the PMG 
data. Line 1830 turns on players and 
missiles by setting bits and 1 in 
GRACTL, $D01D. Lines 1840-1860 
set bits 2 and 3 in SDMCTL, $22F, also 
required to activate PMG. Isn't a single 
statement like "PMGON PMG" a lot 
easier to remember than all this other 
junk? That's what macros are for. 

Of course, the next macro is called 
PMGOFF, in Lines 1920-2020. It sim- 
ply undoes most of what PMGON ac- 
complished. No parameters are needed. 

You probably recall that players can 
be displayed in either single-line or 
double-line resolution. The default is 
double-line, which means that each bit 
pattern in the player shape definition ta- 
ble shows up on two adjacent scan lines. 
The PMGRES macro in Lines 
2060-2230 lets you choose the desired 
resolution. The parameter can either be 
1 for single-line or 2 for double-line 
players. Recall also that PMG RAM al- 
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All we do now is wait until 
Bonzo hits the car with a 




location and usage is different depend- 
ing on the resolution you're using. 
Refer to issue 48 to refresh your 
memory. 

You can also control the horizontal 
position of each player and missile, in- 
dependently. I have two macros for 
these purposes, HPLAYER in Lines 
2270-2430 and HMISSILE in Lines 
2470-2630. These work in exactly the 
same way. Two parameters are needed, 
the player number (0-3) and the desired 
horizontal position, a value from 0-255. 
It wouldn't be difficult to modify these 
macros to accept as parameter 2 an ad- 
dress containing the desired horizontal 
position; give it a try. Remember that 
horizontal position values below about 
48 and above 208 probably won't be 
visible on your TV or monitor screen. 

Two sets of addresses are used in each 
of these macros. Locations HPOSPO- 
HP0SP3 ($D000-$D003) control hori- 
zontal positions for players, and 
HPOSM0-HPOSM3 ($D004-$D008) 
are used for missiles. However, these 
addresses are "write-only." You can't 
find out where a player is by peeking 
at the contents of one of these address- 
es. Hence, I set up parallel sets of data 
storage locations called XPOSPO- 
XPOSP3 and XPOSM0-XPOSM3. The 
HPLAYER and HMISSILE macros as- 
sume that you've done the same, and 
you'll get an undefined label error if you 
omit this step. Today's sample program 
will show what I mean. 

Setting the widths of missiles is a bit 
more convoluted. A missile is just a 
2-bit wide analog of the 8-bit wide play- 
er. Only one address, SIZEM ($DOOC), 
is devoted to controlling missile widths. 
Bits and 1 handle missile 0, bits 2-3 
are for missile 1, bits 4-5 apply to mis- 
sile 2, bits 6-7 take care of missile 3. 
The pattern in each pair of bits again 
controls the missile width: 00 and 10 
are normal; 01 is double; and 11 is 
quadruple. 

The MWIDTH macro first creates the 
desired bit pattern based on the value 
in parameter 2 (1, 2, or 4). The value 
of parameter 1 tells us which missile to 
set. The loop in Lines 2890-2960 shifts 



the desired bit pattern two bits to the 
left (more significant direction) until the 
bit pattern is in position corresponding 
to the correct missile . For example, for 
missile we don't do any shifting, and 
for missle 2 we shift the pattern a total 
of four times (two passes through the 
loop), until our pattern is in bits 4-5. 
The resulting bit pattern is stored tem- 
porarily at address @TEMP within the 
macro definition (Line 2800). Finally, 
Lines 2980-3000 take the current con- 
tents of SIZEM, use the ORA instruction 
to set the desired two bits based on the 
contents of @TEMP (leaving the other 
six bits of SIZEM unchanged), and store 
the result back in SIZEM. 

Confused? So was I. That's why I 
wrote the macro. Now I don't have to 
remember how it works every time I 
want to set the width of a missile. I sim- 
ply let the computer do the thinking, 
while I try to handle the creativity end 
of business. 

Our final macro sets the width of the 
playfield to normal (40 Graphics 
characters), narrow (32 characters), or 
wide (48 characters) width. The play- 
field, of course, is the area of the mo- 
nitor screen used for display of text, 
graphics and players. Our old friend 
SDMCTL ($22F) is the main actor here 
again. The PLFIELD macro in Lines 
3060-3390 requires one parameter to 
specify the desired width. A parameter 
of turns off the display screen entire- 
ly, 1 is for narrow, 2 for standard and 
3 for the wide playfield. The bit pattern 
in bits and 1 of SDMCTL controls the 
playfield setting. A value of 00 means 
off, 01 is narrow, 10 is standard and 1 1 
is wide. 

The logic in the PLFIELD macro gets 
a little harrowing. It turns out to be a 
little tricky to simply set and clear 
specific bits in a byte, without affecting 
other contents of the byte. The AND, 
ORA and EOR instructions are useful, 
but you have to think carefully about 
what they do and in what order to use 
them. In the case of the narrow play- 
field, for example, I want to clear bit 1 
and set bit 0. I chose a rather odd 
method to do this, but it works. Lines 
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3230-3240 perform two LSR (Logical 
Shift Right) operations. This simply 
throws away the contents of bits and 
1, while shifting the remaining six bits 
two positions to the right. Then two ASL 
(Accumulator Shift Left) instructions 
put the six high-order bits back where 
they belong and clear both bits and 
1 . After that I use the ORA instructions 
in Line 3270 to selectively set bit 0. 
Whew! 

You may wonder why I gave this last 
macro the awkward name of PLFIELD. 
Why not just come right out and say 
PLAYFIELD? Well, I tried PLAY- 
FIELD. Unfortunately, MAC/65 inter- 
preted this as a PLA instruction fol- 
lowed by YFIELD as a piece of data. So, 
I tried PLYFIELD, thinking that at least 
PLY isn't a 6502 mnemonic. Right, ex- 
cept that MAC/65 supports some extra 
opcodes that apply only to an enhanced 
NCR 65C02 microprocessor, and PLY 
happens to be such an instruction. It 
means to pull the Y-register from the 
stack. Hence, the more contrived 
PLFIELD. The moral is to be careful 
when naming macros, so MAC/65 
doesn't misinterpret your macro name 
as some bizarre kind of instruction. 

So now your toolbox is crammed with 
even more goodies. Let's see some of 
these babies in action. 

Remember Bonzo? He's the little guy 
with the death wish from "Attack of the 
Suicidal Road-Racing Aliens." Bonzo's 
changed his tune, and he's out to get 
back at the cars that kept doing him in. 
Today's sample program lets Bonzo 
shoot back at the cars. We'll see how to 
manipulate missiles, and how easy it is 
to set up a graphics program using these 
new (and some old) macros. In fact,the 
program in Listing 2 uses about 20 
macros. As a special treat, I'll show you 
how to create the famous Atari rainbow 
character effect. 

Please type in Listing 2. You'U have 
to assemble this program to disk, rather 
than just to memory, which might slow 
things down a bit. If you're using the 



RAM disk, assemble to some file on 
drive D8: using a command like: 
ASM„#D8:BC58.0BJ. Don't forget to 
save a copy of the source code on disk 
before you BLOAD the assembled ob- 
ject code. Otherwise, the object file 
might overwrite the tail end of your 
source code. If you aren't using a RAM 
disk, change the drive designations for 
the .INCLUDE statements in Lines 210, 
220, and 2850. 

Here's the plan. Bonzo will remain at 
the bottom of the screen, and you can 
move him left or right within specified 
boxuidaries using a joystick in Port 1 . 
A car will move across the screen from 
left to right. Bonzo shoots a missile at 
the car whenever you press the fire but- 
ton on the joystick. If Bonzo scores a 
hit, the car explodes and a message ap- 
pears. You can then either press START 
to play again or press RESET to exit 
from the program. 

We'U use a VBI to handle movement 
of the car, Bonzo, and the missile. I've 
also created a special shape for Bonzo 
to assume when he's actually firing the 
missile. The VBI will copy that form into 
the PMG RAM whenever you press the 
joystick fire button. Our main program 
sets up the PMG environment, waits for 
a collision, and handles the post- 
collision activities. 

Of course, we need to .INCLUDE the 
two macro library files we've built. 
Lines 210-220. Some equates appear 
in Lines 260-330. You've seen most of 
these before. STRIGO ($284) reads the 
joystick trigger (fire button). MOPL 
($D008) checks for collisions between 
missile (fired by Bonzo as player 0) 
and players. 

I put the PMG dedicated RAM block 
(2K for single-Une resolution) at address 
$3000 in Line 390. The .DS directives 
reserve chunks of RAM for each player 
and the missiles. The three pages from 
PMG to MIS aren't used in this pro- 
gram. My work variables which keep 
track of the horizontal and vertical po- 
sitions of the players and missiles ap- 
pear at the end of the PMG block, as do 
bytes to specify the limits of motion at 
the edges of the screen. 
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The VBI routme, begins at $4000 
(Line 590). There's quite a bit of un- 
used space between the top of the PMG 
block and the beginning of the VBI, 
which might come in handy if you have 
a really large program. Much of the 
VBI code is adapted from the Boot 
Camp column in issue 49. Storing 
something in ATRACT (Line 620) pre- 
vents the computer from going into at- 
tract mode if no key is pressed for 
several minutes. Lines 630-650 move 
the car (Player 1) one pixel to the right. 
Lines 660-830 handle the left/right 
movement of Bonzo, making sure he 
doesn't go past the boundaries I set in 
the main program. 

The MOVEMISSILE routine begin- 
ning at Line 840 checks to see if the 
missile has been fired already, indicat- 
ed if the horizontal position (XPOSMO) 
is not zero. If so, the missile is moved 
upward using the method we covered in 
previous issues (see Lines 1010-1140) 
until it hits the top boundary. When it 
hits the top. Lines 900-990 reset the 
horizontal position to zero (off-screen) 
and zero out the missile section in the 
PMG RAM block to clear out any junk. 
Then we go to CHKTRIG to see if the 
fire button is being pressed. 

If the fire button is pressed, location 
STRIGO will contain a 0. Otherwise, it 
contains a 1. If the button isn't pressed. 
Line 1170 branches down to 
COPYBONZO at Line 1310. There the 
standard Bonzo shape is copied to the 
RAM block for player 0. 1 do this every 
time just in case the last shape displayed 
was the shooting form. We don't wan't 
the shooting shape to remain forever 
once it is first drawn, now, do we? 

If you're pressing the fire button, the 
shooting shape stored at address 
SHOOTER (Lines 2680-2710) is 
copied into PMG RAM using the MOVE 
macro. Line 1190. If the missile is al- 
ready fired we don't shoot another one. 
However, if it hasn't been fired yet. 
Lines 1220-1270 copy the missile form 
(defined in Lines 2780-2790) into the 
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Confused? So was I. That's why 
I wrote the macro. 




PMG RAM block and set the horizontal 
position to look like Bonzo really fired 
it. As with any VBI routine, the grace- 
fill way to exit is by jumping through the 
XITVBV ($E462) vector, Line 1350. 

~I~lni^ r^^^in 
F^<r:> uti n^ 

As usual, the main program begins 
execution at address $5000, line 1410. 
Since I've termed this starting point 
START (creative labels, eh?), you could 
make this program autorun on loading, 
using the method we discussed last 
month. 

The first orders of business are to set 
up a fiill screen of Graphics 2 and set 
the boundaries for player and missile 
movement (Lines 1450-1480). Lines 
1490-1580 zero the required portions 
of the reserved PMG RAM block. The 
statements in Lines 1680-1820 set up 
the PMG environment. The player 
shapes are defined in Lines 2580-2610 
(Bonzo) and 2630-2660 (the car). 

Bonzo is yellow and the car is pink. 
Both players are single resolution, on 
a standard width playfield. Bonzo is 
normal width and the car is double 
width. The missile Bonzo fires will be 
normal width. After enabling play- 
er/missile graphics in Line 1770, Bon- 
zo is moved to the middle of the screen. 
Both the car and Bonzo's missile begin 
offstage, at a horizontal position of 0. 
Finally, Line 1820 begins execution of 
the VBI routine, and the car starts to 
move across the screen. Now you can 
move Bonzo using the joystick and fire 
when ready, Gridley. 

All we do now is wait until Bonzo hits 
the car with a missile. Tlie loop in Lines 
1910-1940 simply tests for this condi- 
tion forever. Don't forget to reset the 
collision registers as in Line 1900 be- 
fore checking for a new collision. We 
talked about collision detection in issue 
50. 

When Bonzo scores a hit, the game 
is over. First I turn off the VBI routine 
in Line 2020 so all player and missile 
movement ceases. Tlie missile is moved 
offscreen in Lines 2030-2040. I 
replace the car shape with a wrecked 



car shape (WRECK, defined in Lines 
2730-2760), Line 2050. The FOR/ 
NEXT loop in Lines 2060-2110 simply 
changes the color of the wreck from 
bright to dark red and back rapidly ten 
times, pausing for three jiffies after each 
color change. This gives sort of a flash- 
ing explosion effect. 

Lines 2220-2250 print some mes- 
sages on the screen, which are defined 
in Lines 2520-2560. Notice that I've 
used characters in those lines to select 
different color registers for the different 
text lines. 

Lines 2260-2340 are all it takes to 
generate the well-known Atari rainbow 
effect. It works by simply increment- 
ing the value stored in a particular hard- 
ware color register. Line 2290 waits for 
horizontal synchronization before actu- 
ally effecting the color change. The 
result is a new color on each scan line, 
moving down the screen at about 60 
scan Unes per second. By changing the 
offset in the Y-register (Line 2270) 
and/or the base address being affected 
(Line 2310), you can produce this ef- 
fect in any of the playfield or player 
color registers. 

The rainbow continues until you 
either press the START button to play 
again (Lines 2320-2330) or the RESET 
button to exit from the program entire- 
ly. We talked about reading the console 
buttons in issue 44. When START is 
pressed. Lines 2430-2460 close the 
screen lOCB, reset the collision 
registers, turn off player/missile graph- 
ics, and go back to let Bonzo get some 
more revenge. 



As you can see, ladies and gentlemen 
of the jury, macros make assembly 
programming much faster, easier and 
cleaner. It doesn't take an Atari expert 
to write effective graphics programs 
when the right macros are available. I 
ask you to find in favor of the macro as- 
sembler, and to purchase one if you 
plan to continue your pursuit of 6502 
assembly language on the 8-bit Atari 
computers. I thank you. 
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Isn't a single statement like 
"PMGON PMG" a lot easier to 
remember than all this other 
junk? That's what 
macros are for. 



Listing I lAssemtly 



0100 
0110 
0120 
0130 
0140 
0150 
0168 
0170 
0188 
0190 
0200 
8210 
0220 
0238 
0240 
0250 
8260 
8278 
8288 
8298 
8380 
8318 
8328 
0330 
0340 
0350 
0360 
0378 
8388 
8398 
8400 
0410 
8420 
0430 
0440 
0450 
0460 
0470 
8488 
8498 
0508 
8518 



Graphics Macros for MAC/65 
by Karl E. Miegers 
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equates needed by Macros 



UD5LST 
SDMCTL 
PCOLR0 
HPOSP0 
HPD5M0 
5IZEP8 
SIZEM : 
GRACTL 
PMBflSE 
NMIEN : 
5ETUBV 
KITUBU 



= $8280 
= $822F 
z S82Ce 
= $0888 
= $0684 
= $0888 

: $088C 
= $0810 
= $0407 

: $040E 
= $E45C 
= $E462 
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UBION Macro 

Usage: UBION address 

■address' is the address or 
label for the beginning of your 
deferred UBI routine 

. MACRO UBION 
.IF XOOl 

.ERROR "Error in UBIOH" 
.EL5E 
LOY « <X1 

LDK n yy.i. 

LOA tt7 
J5R 5ETUBU 
.ENOIF 
.ENOM 

■ XXXXXXXKKXXXXXXKXXKXKKXXXXXXXXX 



8528 




6530 


JUBIOFF Macro 


0548 




8550 


jusage: UBIOFF 


8568 




0570 


.MACRO UBIOFF 


0580 


LOV » <XITUBy 


0590 


LDX tt >KITUBU 


0608 


LOfl «7 


8618 


J5R 5ETUBg 


0620 


.ENOM 


0630 
0648 
8650 






8668 


IDLION Macro 


0678 




0680 


i Usage: DLION address 


0690 




0700 


■address' is the starting 


0710 


;address of the OLI routine to 


0720 


be executed 


0739 




8748 


.MACRO DLION 


8758 


.IF y.QOl 


8768 


.ERROR "Error in DLION" 


8778 


.EL5E 


8788 


LDA NMIEN 


8798 


ORA tt$80 


8888 


STA NMIEN 


8818 


LOft n <X1 , 


0828 


STfl U05LST 


8830 


Loa tt yy.i 


8848 


STft UD5L5T+1 


8858 


.ENDIF 


8868 


.ENOM 


8878 
8888 
8898 






0988 


OLIOFF Macro 


0910 




0920 


Usage: DLIOFF 


0930 




0940 


.MACRO DLIOFF 


0950 


LOA NMIEN 


0960 


EOR tt$80 


0970 


STA NMIEN 


0980 


.ENOM 


0990 
1000 






1010 




1020 


SETPCOLOR Macro 


1030 , 




1040 , 


Usage: SETPCOLOR ptt,hue,luM 


1050 , 




1068 , 


ptt is player nuMber ce-3] 


1878 J 


hue is color nuMber (8-15) 


1880 , 


luM is luMinance value C8-15] 


1090 , 


all can be values or addresses 


1100 J 




1110 


.MACRO SETPCOLOR 


1128 


.IF X8<>3 


1130 


.ERROR "Error in SETPCOLOR" 


1148 


.ELSE 


1150 


.IF >'.1>3 


1160 


LDK Y.i. 


1178 


.ELSE 


1188 


LOM ttY.l 


1198 


■ENOIF 


1288 


.IF X2>15 


1210 


LOA y.2 


1228 


ASL A 


1230 


ASL A 


1240 


ASL A 


1258 


ASL A 


1268 


.ELSE 


1278 


LOA »X2»16 


1288 


.ENDIF 


1298 


.IF X3>15 


1388 


LOY y.z 


1318 


.ELSE 


1328 


LOY tty.z 
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]Bc3C^1: 





1336 


.EHDIF 


2148 


.IF XOOl 


1348 


STA PC8LR8,X 


2150 


.ERROR "Error in PMGRES" 


1356 


TYft 


2166 


.ELSE 


1366 


AND tt$8F 


2178 


.IF Xl=l 


1376 


CLC 


2186 


LDA SDMCTL 


1388 


ADC PC8LR8,X 


2196 


ORA tt$ie 


1398 


STA PC8LR8,X 


2286 


STA SDMCTL 


1466 


.ENDIF 


2218 


.ENDIF 


1418 


.ENDM 


2228 


.ENDIF 


1428 
1438 




2230 
2246 


.ENDM 


1446 




2256 




1456 


IpMIDTH Macro 


2266 




1466 




2276 


HPLAYER Macro 


1478 


; Usage: PMIDTH ptt, width 


2288 




1488 




2298 


Usage: HPLAYER ptt,X 


1496 


IPtt is plaji^er nunber {6-31 


2388 




1566 


iwidth is width factor CI, 2, 41 


2318 


pU is player nuMber (8-3} 


1516 




2328 


X is horizontal position 


1526 


.MACRC PMIDTH 


2336 




1538 


.IF >;e<>2 


2346 


.MACRO HPLAYER 


1548 


.ERRBR "Error in PWIDTH" 


2358 


.IF X8<>2 


1558 


.ELSE 


2368 


.ERROR "Error in HPLAYER" 


1568 


LDx ny.i 


2378 


.ELSE 


1578 


LDA tt8 


2388 


LDX uy.i 


1588 


.IF X2=2 


2398 


LDA tty.2 


1598 


LDA »1 


2488 


STA HPOSPOfX 


1686 


.EKDIF 


2418 


STA XPOSPO,X 


1616 


.IF y.2=A 


2428 


.ENDIF 


1628 


LDA nz 


2436 


.ENDM 


1638 
1648 
1658 


.EMDIF 
STA SIZEP6,X 
.ENDIF 


2446 
2456 
2466 






1666 


.ENDM 


2476 


Ihmissile Macro 


1676 
1686 




2486 
2498 


i Usage: HMISSILE mS,X 




1698 




2588 




1788 


PHGSN Macro 


2518 


iMtt is Missile nuMber CQ-3] 


1718 




2528 


:X is horizontal position 


1728 


1 Usage: PMGON address 


2538 




1736 




2546 


.MACRO HMISSILE 


1748 


: 'address' is the address of the 


2556 


.IF 5^6<>2 


1758 


reserved PHG RAM block 


2568 


.ERROR "Error in HMISSILE" 


1768 




2576 


.ELSE 


1776 


. MACRO PMGON 


2586 


LDX tty.i. 


1788 


.IF Y.BOi. 


2596 


LDA ny.2 


1798 


.ERROR "Error in PMGON" 


2608 


STA HP0SM6,X 


1886 


.ELSE 


2616 


STA XP0SM6,X 


1816 


LDA « yy.i. 


2628 


.ENDIF 


1826 


STA PMBASE 


2636 


.ENDM 


1838 


POKE GRACTL,3 


2648 




1848 


LDA SDMCTL 


2658 
2666 J 




1856 


^ Ir n aflrllw 1 ^ 

DRA U$OC 




1868 


STA SDMCTL 


2678 J 


MNIDTH Macro 


1878 


•ENDIF 


2688 , 




1886 


.ENDM 


2696 J 


Usage: MMIDTH Htt, width 


1896 
1988 




2788 J 






2718 , 


Mtt is Missile nuMber (8-3) 


1918 




2726 , 


width is 1, 2, or 4 


1926 


PHGOFF Macro 


2736 1 




1936 




2748 


.MACRO MMIDTH 


1948 


Usage: PMGOFF 


2756 


.IF X6<>2 


1956 




2768 


.ERROR "Error in MMIDTH" 


1966 


.MACRO PMGOFF 


2776 


.ELSE 


1978 


LDA tt8 


2786 


CLC 


1988 


STA GRACTL 


2798 


BCC QSKIPMMIDTH 


1998 


LDA SDMCTL 


2888 G 


TEMP .BYTE 6 


2886 


EOR n$8C 


2816 G 


SKIPMMIDTH 


2816 


STA SDMCTL 


2826 


LDA tt8 


2826 


.ENDM 


2838 


.IF y.2=2 


2836 
2846 




2846 


LDA »1 




2656 


.ENDIF 


2858 




2860 


.IF X2=4 


2666 


PMGRES Macro 


2878 


LDA tt3 


2876 




2888 


■ENDIF 


2886 J 


Usage: PMGRES res 


2898 


LDY ny.i. 


2698 J 




2988 


BEQ GSHDONE 


2188 ; 


res is 1 for single-line, 2 


2916 G 


SHLOOP 


2118 , 


for double-line resolution 


2926 


ASL A 


2126 J 




2938 


ASL A 


2138 


.MACRO PMGRES 


2948 


DEY 



io 
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2953 
2968 
2979 
2989 
2998 
3888 
3818 
3828 
3838 
3848 
3858 
3868 
3878 
3888 
3898 
3188 
3118 
3128 
3138 
3148 
3158 
3168 
3178 
3188 
3198 
3288 
3216 
3228 
3238 
3248 
3258 
3268 
3278 
3288 
3298 
3388 
3318 
3328 
3338 
3348 
3358 
3368 
3378 
3388 
3398 



BNE G5HL00P 
GSHDONE 

STft GTEMP 
LDA SIZEM 
ORfl GTEMP 
5Tfl SIZEM 
.ENDIF 
.ENDM 



KKKKKKKKKKKKKKKICMKICICKXKMMKMKKK 



PLFIELD Macro 

Usage: PLFIELD width 

■width' is e to turn screen off, 
1 for narrow plai/field, 2 for 
standard, 3 for wide 

.MACRO PLFIELD 
.IF X801 

.ERROR "Error in PLFIELD" 
.ELSE 

LDA SDMCTL 
.IF Xl=8 

LDA no 

.ENDIF 
.IF 5^1=1 
LSR A 
LSR A 
ASL A 
ASL A 
ORA »1 
.ENDIF 
.IF Xl=2 
LSR A 
ORA ni 
ASL A 
.ENDIF 
.IF Y.X=Z 
ORA tt3 
.ENDIF 
STA SDMCTL 
.ENDIF 
.ENDH 



Listing J: AssembI/ 



DeMonstration of player/Missile 
graphics nacros 

by Karl E. Miegers 

.OPT OBJ, NO LIST 



PULL IN MACRO LIBRARIES 



8188 

8118 

8128 

8138 

8148 

8158 

8168 

8178 

8188 

8198 

8288 

8218 

8228 

8238 ; 

8248 ; equates we need today 

8258 ; 

= $4D 

= S8278 

= $8284 
$De88 

= $D816 

= $D81E 

= SD81F 
$D4eA 



.INCLUDE ttD8: MACRO. LIB 
INCLUDE ttD8:GRAPHICS.LIB 



8268 ATRACT 
0278 STICK8 
8288 STRIG8 
8298 MePL = 
8388 C0LPF8 
HITCLR 
CONSOL 
MSYNC 



8318 
8328 
8338 
8348 
8358 
8368 
8378 
8388 
8398 
8488 
8418 
8428 



■ XKXXXKKXXXXXXMXXXXXKKXXKXKXKXXX 

! SET UP PMG STORAGE 
; XXXXKKXXXXKXXKXXXKXXXXXXXKKXXXX 

«z S3888 

PMG .DS $8308 
MIS .DS $8188 



8430 
8448 
8458 
8468 
8478 
8480 
8498 
8568 
8516 
8526 
8536 
8546 
8556 
8566 
8578 
8586 
8598 
8688 
6618 
6628 
6638 
6646 
6656 
0666 
8676 
8686 
8696 
6780 
6718 
6726 
6738 
6746 
6756 
6766 
0776 
8786 
8796 
8886 
8818 
6828 
6836 
0846 
8856 
8860 
6876 
6886 
8896 
6988 
6916 
8926 
8938 
6948 
6958 
6966 
8976 
8988 
6998 
1866 
1816 
1826 
1836 
1648 
1858 
1868 
1678 
1888 
1898 
1188 
1116 
1126 
1136 
1148 
1158 
1166 
1176 
1186 
1196 
1206 
1216 
1228 
1230 



PL8 .DS $6106 
PLl .DS $6166 
PL2 .DS $6166 
PL3 .DS $6166 
XPOSPO .DS 4 
YPOSPO .DS 4 
XPOSMO .DS 4 
YP0SM8 .DS 4 
LEFT .DS 1 
RIGHT .DS 1 
TOP .DS 1 

■ KXKKXXKKXXKXKXKXXKXKXXKXXXXXKXX 
; UBI ROUTINE STARTS HERE 
; KXXKXXKKXKXXXXKXXKXXKXXXXXXXXXK 

*= $4606 

UBI 

POKE ATRACT, 6 
INC KPOSPO+i ;Move car 1 
LDA KPOSPO+1 ;pixel to right 
STA HPOSPO+l 

LDA STICKO ;get stick 1 
AND «4 ;left? 
BNE CHKRIGHT ;no, Check right 
LDA KP0SP8 ;yes - at left 
CMP LEFT ;edge? 
BEQ MOUEMISSILE ;yes, go on 
DEC XPOSPO ;no. Move Bonzo 

POKE HPOSPO, XPOSPO J to left 
BNE MOUEMISSILE ;go on 
CHKRIGHT 

LDA STICKS ;get Stick 1 
AND »8 jright? 
BNE MOUEMISSILE ;no, go on 
LDA XPOSPO ;yes - at right 
CMP RIGHT ;edge? 
BEQ MOUEMISSILE ;yes, go on 
INC XPOSPO jno. Move hiH to 
POKE HPOSPO, XPOSPO ;right 
MOUEMISSILE 

LDA XPOSMO ;MiSSile fired? 
BEQ CHKTRIG ;no. Check trig 
LDA YPOSMO ;yes - at the 
;top? 

;no. Move it 
XPOSMO, ;yes - Move 
HPOSMO,e ;Missile 
YPOSMO, $B8 ;offscreen 
J zero out 
;Missile 1 area 



CMP TOP 
BNE MOUEM 

POKE 

POKE 

POKE 

LDX no 

TXA 
ZMISSILE 

STA MIS,X 

INX 

CPX »$B8 

BNE ZMISSILE 

BEQ CHKTRIG ;check trigger 
MOUEM 

LDA tt >MIS ;Move Missile 

STA MOUEFROM+1 ; up 1 scan 
POKE MOUEFROM, YPOSMO ;line 

LDY »1 
LOOPUP 

LDA (MOUEFROM), Y 

DEY 

STA tMOUEFROM),Y 

INY 

INY 

CPY ttlO 

BNE LOOPUP 

DEC YPOSMO 
CHKTRIG 

LDA STRIGO jtrigger pressed? 

BNE CDPYBONZO ;no, go on 
;yes-copy shooting forM of Bonzo 
MOUE SHOOTER, PLO+$Ce, 17 

LDA XPOSMO JMiSSile fired? 

BNE UBIEXIT ;yes, exit 

LDX XPOSPO jno, copy Missile 

INX ; f OTM into PMG 



;Missile is 10 
;bytes tall 
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1246 
1258 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1408 
1418 
1420 
1430 
1440 
1450 
1460 
1478 
1488 
1490 
1508 
1518 
1528 
1538 
1548 
1558 
1568 
1578 
1588 
1598 
1600 
1610 
1628 
1638 
1648 
1650 
1668 
1670 
1680 
1698 
1700 
1710 
1720 
1730 
1748 
1758 
1766 
1778 
1788 
1798 
1888 
1818 
1826 
1838 
1848 
1850 
1860 
1870 
1880 
1898 
1908 
1918 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 

2000 

2018 
2020 
2030 
2040 



;and Move to 
;Bonzo's location 



114 X 

5TH HPOSHO 

5TK XP05M0 
HDUE HI5SILE,MI5+$B8,10 

CLC 

BCC UBIEXIT 
;cDP!; nornal Bonzo forn 
COPYBONZO 

MOVE BONZO, PLe+$C8, 17 
; leave UBI routine 
VBIEKIT 

JNP XITUBV 

■ MMKKKKKKKKKKKKKMMKKKMKXKKKKKMKM 
; MAIN PROGRAM STARTS HERE 
■ KKKMKXKKKKMKKMXXXKKKKKKKKKKKKKK 



«= $5888 



START 

CLD 
GRAPHICS 



INIT 



POKE 
POKE 
POKE 

LDX ttO 

TXA 



jbinari; node 
2+16 ;open screen 



LEFT, 56 ;set liMitS 
RIGHT, 191 
TOP, 30 

;zero PMG area 



STA MIS,X 

STA PLO,X 

STA PL1,X 

STA PL2,X 

STA PL3,X 

INK 

BNE INIT 



now point to PNG area, nove 
car and Bonzo shapes into PMG 
RAM, set colors, widths, and 
positions, and resolution, and 
turn on PMG and UBI 



MOUE BONZO, PLO+$CO, 17 
MOVE CAR,PLl-l'S80,16 
SETPCOLOR 0,1,12 
SETPCOLOR 1,5,6 
PLFIELD 2 
PMGRES 1 
PMIDTH 6,1 
PNIDTH 1,2 
MHIDTH 6,1 
PMGON PMG 
HPLAYER 0,120 
HPLAYER 1,8 
HMISSILE 8,8 
POKE YP0SMe,$B8 
UBION UBI 



iclear collision registers; 
loop until you get a collision 
Ibetween the nissile and the car 



POKE HITCLR,8 
CHKCOL 

LDA MOPL 
AND ni 
BEQ CHKCOL 



;when collide, turn off UBI, 
IMOve Missile offstage, cop;^ 
;wreck shape on car; flash colors 



UBIOFF 

POKE HP0SM8,8 

POKE XPOSNO,0 



2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2366 
2318 
2326 
2336 
2348 
2358 
2368 
2378 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2478 
2488 
2498 
2588 
2518 
2528 
2538 
2548 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 



MOUE MRECK,PL1+$80,18 
FOR 1,1,10 
SETPCOLOR 1,4,12 
PAUSE 3 
SETPCOLOR 1,4,2 
PAUSE 3 
NEXT I 



Change color registers, print 
Messages, turn on rainbow for 
color register 0, wait for press, 
of START or RESET keys 



SETCOLOR 1,5,8 
SETCOLOR 2,12,8 
POSITION 4,0 
PRINT 6,MINNER 
POSITION 1,2 
PRINT 6,MHATNEXT 
RAINBOH 

LDY ttO 

INX 

STX MSYNC 

TXA 

STA COLPFO,Y 

LDA CONSOL 

CMP «6 

BNE RAINBOM 



Close screen, reset collision 
registers, turn off PMG, go back 
and start it all over if START 
was pressed 



CLOSE 6 
POKE HITCLR,6 
PMGOFF 
JMP START 



lines to print, player shapes 



WINNER 

.BYTE 

MHATNEXT 
.BYTE 
.BYTE 

BONZO 

.BYTE 
.BYTE 
.BYTE 

CAR 

.BYTE 
.BYTE 
.BYTE 

SHOOTER 

.BYTE 
.BYTE 
.BYTE 

MRECK 

.BYTE 
.BYTE 
.BYTE 

MISSILE 

.BYTE 



■BONZO MINS!",EDL 
'Star t to go a gain " 



6,66,24,126,189 

189,189,189,68,66 

36,36,36,102,0,0,0 



0,0,126,195,219,219 

91,219,219,219,219 

91,219,219,195,126 



24,24,36,66,129,189 
153,126,60,60,60,60 
60,36,66,36,102 



20,89,98,86,156,41 

86,146,89,108,184,86 

40,84,86,8,16,32 



1,1,1,1,1,1,1,1,1,0 



j KXXXXXKKKXMKKKKKKKXXKKKKKKKMKX 
; DON'T FORGET THE SUBS! 
; XKKKXKXXKXKKKKKXXKMXKXKKKKXXKX 

.INCLUDE ttD8: SUBS. LIB 
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The Golden Age 

by ^^r-t^ie J<:£^tsz^, JToyce 'SXyorl&y tS- 

■ n chapter two of our sto- 
ry, we left a somewhat 
bemused George Plimpton try- 
ing to sound enthusiastic about 
video games. Meanwhile, some- 
where in Silicon Valley, a feisty 
marketing guy from the record 
industry, Jim Levy, is enjoying 
lunch with four Interesting 
Strangers. 
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Upon closer inspection, the four interesting 
strangers turned out to be Alan Miller, David 
Crane, Bob Whitehead and Larry Kaplan. 
There is no record of what they and Levy or- 
dered, but the result of their meetings burst 
upon the video game market like a bombshell. 

At the core of Levy's concept w^as his anal- 
ogy between the music and video game indus- 
tries. Just as some companies make stereos 
and others distribute records, he reasoned, a 
company could make video game software 
without marketing a hardware system of its 
own. 

Whitehead, Crane, Miller and Kaplan joined 
Levy in a new venture called Activision, which 
opened its doors for business in 1980. It may 
surprise younger video gamers, but Atari was 
not pleased by the infant publisher's decision 
to produce cartridges for the VCS (2600) sys- 
tem. The industry leader viewed the upstart as 
competition, rather than support. Determined 
to wipe out the enemy on the beaches. Atari 
mounted a campaign to convince consumers 
and the industry that only the outfit which creat- 
ed the VCS ought to manufacture cartridges 
for it. Activision overcame all obstacles, includ- 
ing a ridiculous rumor that ACTV carts would 
damage the VCS console, and its first group 
of four titles reached retail stores before the end 
of 1980. 

No one was more enthusiastic about the 
debut of Activision than Arnie Katz and Bill 
Kunkel, who had started a monthly video game 
review column in WDEO magazine. Atari's out- 
put was barely sufficient to fill the alloted editori- 
al space. The world's first video game critics 
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might have become the world's last video 
game critics if Activision had not opened the 
floodgates for game cartridges. Within a year, 
the pair started work in the first issue of Elec- 
tronic Games, the first regular newsstand 
magazine devoted entirely to video and com- 
puter entertainment. 

After Activision came Imagic, Games by 
Apollo, CommaVid, Parker Brothers, CBS, Fox 
Games, Data Age and many, many more. Most 
of the companies elected to produce carts for 
the Atari 2600 rather than the Odyssey2 and 
Intellivision. The potential audience for 2600 ti- 
tles was larger, and more programmers had 
experience with it than the two rival systems. 

Ironically, the tremendous third-party soft- 
ware proved decisive in establishing Atari as 
the dominant brand. The Warner Communica- 
tions division was forced to reverse gears and 
start touting the great number of games made 
for the 2600 by other companies. 



Down at the 
Arcade 



Business boomed in the coin-op field. Pin- 
ball arcades transformed into plush family 
amusement centers overnight as the quarter- 
snatchers lured adults as well as children with 
play-for-pay video games. 

The only cloud on the horizon was that ar- 
caders were almost all male. Women didn't 
seem to enjoy the complex shooting games as 
much as men, and they tended to play video 
games in the home, if at all. 

The antidote to female arcade apathy arrived 
in America in 1981 after conquering the hearts 
of Japanese joystickers. The wocka-wocka 
sound effects, simple play-mechanics, and low 
violence quotient of Pac-Man overcame all 
resistance. The maze-chase format offers more 
strategic scope than invasion contests like 
Space Invaders, but it actually requires less 
physical skill to play. And when people disco- 
vered that they could learn the movement pal- 
terns for those pesky ghosts, Pac-mania swept 
America. 

The interest in Pac-strategy led to an upswing 
of interest in this phase of video gaming. Soon, 
a couple of dozen books were telling score- 
hungry arcaders how to gobble up Pac-Man 
and smash Asteroids. 



There Once was 
a Leather Goods 



The Connecticut Leather Company got into 
the toy business before World War II through 
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a contract to produce Tom Mix holsters. The 
company subsequently expanded its line of 
recreational products to include above-ground 
swimming pools and electronics games. Along 
the way, it shortened the corporate name to 
Coleco. 

On June 1, 1982, Coleco introduced its 
"third generation" video game system, the 
ColecoVision. Almost overnight, it seemed 
ColecoVision challenged the previously unas- 
sailable 2600 and, in the process, pushed the 
Odyssey2, Intellivision, and the Astrocade (a 
re-launch of the Bally Arcade home system) to 
the sidelines. 

Under the leadership of the energetic 
Michael Katz, who had helped launch stand- 
alone electronic games at Mattel a few years 
earlier, Coleco displayed an uncanny ability to 
find overlooked coin-op gems and translate 
them beautifully into home cartridges. Cosmic 
Avengers, Venture, and Lady Bug were 
among the titles which flowered in the home 
video gaming environment. And Coleco also 
packed Donkey Kong with the system, which 
attracted many new customers. 

The ColecoVision games utilized greatly in- 
creased memory, as much as 32K, to produce 
games which looked, sounded, and played 
better than anything previously available on the 
market. The first million consoles sold in record 
time. 

Things looked mighty rosy in mid-1983. 
Manufacturers had sold more than $1 billion 
worth of video game consoles the previous 
year, and prospects for a further increase 
looked good, Software sales, which reached 
$1 .2 billion in 1 982, were still climbing. Every- 
one loved video games, and all was right with 
the world. 

Or maybe not. 

Will Atari designers all buy solid-gold Cadil- 
lacs? Can Coleco make the Nutmeg State the 
center of the video game universe? And what 
are those big bulky boxes? Learn the answers 
to these and other thought-provoking questions 
next month in "The History of Video Games, 
Part IV: The Great Fall." 



Game News 
Ubdate 



Bandal America doesn't want video gamers 
to turn into couch potatoes. The company plans 
to keep us lean and mean by playing on the 
NES machine with the Family Fun Fitness ac- 
cessory. This rug-controller responds to play- 
ers jumping, hopping and skipping to move the 
on-screen cursor. The unusual exercise 
device/video game controller comes with a spe- 
cial game, the Athletic World Game Pak. 

Capcom went west, with its latest release for 



the Nintendo Entertainment System. Gun- 
smoke blew 'em away in the coin-ops, and the 
home version promises the same kind of high- 
action cowboy thrills. It's a blast-athon to save 
a mining town from ruthless bandits. 

Broderbund has two new titles to add to the 
list of Nintendo entertainments. Deadly Tow- 
ers changes the NESser to a prince, then 
makes him defend the kingdom against Rubas, 
king of devils. This bell-ringing scourge brings 
forth armies of demons, dragons and other 
dreadfuls. There's an element of role-playing 
to add some depth to the arcade action, plus 
a welcome boon to joystick jockies: A password 
system lets the game in progress continue, in- 
stead of having to start over every time. 

Mixing water with video games is always 
risky; the list of designers who tried and 
drowned is about as long as the list of games 
that attempted to dunk arcade-style action in 
the briney deep. Broderbund's second new ti- 
tle, Sqoon, may break this aquatic tradition. 
This watery title features aliens who've melted 
the polar caps to flood Earth. The NESser has 
to take to the seas in the SQOON submarine 
to destroy the invaders and save the world. 
Activision's designers are dusting off their 
joysticks, with a dozen titles that earned their 
place in the video gamer's Hall of Fame. Pit- 
fall, Grand Prix, Kaboom!, Chopper Com- 
mand, Keystone Kapers, Ice Hockey, 
Ghostbusters, River Raid, Enduro, Space 
Shuttle, Freeway and Boxing are Golden Ol- 
dies worth hunting for on your dealer's shelves, 
and can also be ordered direct from Activision, 
for the Atari 2600 and 7800 video game 
machines. 

Here's a freebee to call for: Dial Nintendo at 
800-422-2602 (206-822-2040 in Washington 
State) for a copy of their brochure, "The Facts 
on Video Games From The Man Who Plays 
Games For a Living," Written by Howard Phil- 
lips, Nintendo's product-analysis manager, it 
gives ten tips on how to purchase video games 
and other high-tech toys. It also contains a brief 
history of video games, and some quotes from 
educators and scientists on the educational and 
therapeutic use of games— useful ammunition 
when convincing your parents to pop for a new 
video game system! 

The Nintendo version of Epyx's classic 
Winter Games was written by PONY, a 
Japanese company, and will be distributed and 
marketed by Acclaim Entertainment. This ver- 
sion contains four cold-weather sports: Speed 
Skating, Hot Dog Aerials, Figure Skating, and 
Bobsled. It's a one-Megabyte ROM cartridge 
that utilizes split-screen graphics, and option- 
al two-player competition. 

Scott Carpenter, one of the original seven 
Mercury astronauts (second man to orbit the 
earth, on May 24, 1962), says, "if videogames 
had existed when I was child, I could have ex- 
ercised those skills (hand/eye coordination and 
quick reactions) at a much earlier age. It's a 
fact: The more you play these games, the more 
your non-verbal skills improve." 

JUNE I988«A,N,A,L,0,G, COMPUTING 



Scott Carpenter is currently touring with ttie 
Sega Challenge, talking to l<ids and parents 
about ways to foster pride and achievement. 
Carpenter believes video games function as a 
training device, and that they "can literally pro- 
vide the secret of self-esteem." 

The Sega Challenge is the creation of a 
group of computer software experts, working 
in consultation with Professor Philip Merrifield 
of New York University. They've developed a 
series of five activities to stimulate kids to see 
how they can improve on their non-verbal skills. 
Dubbed The Sega Challenge, it incorporates 
two video games, plus additional dexterity 
games which test the players' concentration 
and ability to learn new skills. 

Players get three one-minute tries at Outrun, 
a round of Shooting Gallery, then have to try 
to write as many letters as possible backwards 
in a contest called "The Write Stuff." Space 
Balls challenges players to catch only the right 
colored balls, as they arrive via an airstream, 
sort, and place them in matching tubes. Final- 
ly, the Ring Maze test requires players to 
maneuver a ring through a metal maze of let- 
ters (which spell SEGA, what else?) without 
touching the maze, which makes a buzzer 
sound. 

The SEGA Challenge is being played in malls 
and youth centers across the country. 

The Atari XE Game System (about $150) 
comes complete with Atari XE console, key- 
board, light gun, one joystick (though there are 
two ports, so a second controller can be ad- 
ded), plus adapter, cables and switch box. Also 
included are three games; Missile Command 
(resident in the system's memory banks). 
Flight Simulator II, and Bug Hunt, a high 
action shoot-'em up. Atari BASIC is resident 
in ROM, and additional peripherals can be at- 
tached, including programmer recorder, disk 
drive, printer, modem, etc. 

The 64K game system uses the same con- 
trollers that worked with the Atari computer- 
joystick, Track-Ball, light gun, mouse, or 
keyboard. 

There were literally hundreds of cartridges 
manufactured for the Atari 400/800 XE/XL com- 
puters in the first golden age of computer gam- 
ing. There were well over a hundred just from 
third-party developers, not counting the library 
of titles developed by Atari. And, of course, with 
the addition of a disk drive, the game system 
can draw on a huge library of available 
software. 

Konami has a toll-free hotline for gamers. If 
you get stuck on one of their games, call the 
company for a hint. The number is packed with 
each title. There's also a hint book available that 
might help in some tight spots. 

The newest trilogy of games from Konami put 
the gamer in the hot seat. Top Gun casts the 
aTcader in a navy jet, battling bogeys at Mach2. 
In Goonies II, you have to fight off Ma Fratelli 
and her two sons, and in Stinger, you battle 
aliens with your jet fighter. This one features 
simultaneous play for two gamers, or play 



against the computer. All three titles are for tl 
Nintendo Entertainment System. 





The Bottom Line 

Concerning the videogame supplement in 
your most recent edition, I think it's great. I 
would probably buy a copy of a revised elec- 
tronic games magazine // 1 saw one on the store 
shelves, but feel that having it combined with 
ANALOG is your best bet. By taking ANALOG 
and calling it something like "Electronic 
Games/Analog Computing" you will be achiev- 
ing two important points. 

First, the game portion is sure to haul in much 
more advertising than the ANALOG section, 
while readership will increase. Second, and 
most importantly, the people who would buy 
"EG/A" for the game portion of the magazine 
will be introduced (probably for the first time) 
to a line of real computers in the ANALOG sec- 
tion. I'm sure this will revive interest in the Atari 
computers, especially for those who own only 
a video game or are planning to buy one in the 
near future. 

Louis J. Ferro, New Jersey 

Actually, demographic studies Indicate that 
many video game purchasers are quite familiar 
with computers already. In fact, many already 
own and use computers. But while the com- 
puter sits in the den in its solitary work station, 
the video game system is hoot<ed up to the big 
TV in the family room. 

Users Interested In family entertainment are 
likely to be more satisfied with a video game 
system than an 8-bit computer. 



Go VGD! 



I'm definitely in favor of Videogame Digest. 
I think the first outing was very, very good and 
would love to see it become bigger and bet- 
ter. With Atari, Nintendo, INTV and 
Sega.'Tonka— plus over a dozen software 
publishers— now in the video gamelbusiness,l 
believe VGD could even survive as a maga- 
zine itself if it carried a low pricetag and covered 
the gamut of computer and video game 
releases. Whatever its form, please continue the 
Digest, especially to inform us on new and up- 
coming games and equipment. 

Dennis Sellers, Nashville TN 

Today Video games; 
Tomorrow . . . ? 
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VGD is a great idea! I love it! Look, I'll be 
honest, I can't say anything else about how I 
feel about this idea, so I'll just give some sug- 
gestions that would make this the best maga- 
zine around. 

I'm glad to hear that you guys are from Elec- 
tronic Games (Computer Entertainment). I 
mourned the passing of that magazine. I was 
taken aback, though, when I read "the world 
of cartridge games." Why just cartridge? 
Please cover a//gamesl Computer games, ar- 
cade video and cartridge. And please, if a 
game isn't good, say so. All the reviews in the 
first VGD sounded suspiciously cheery to mel 
Henning Hoffman Waterloo, Ontario CANADA 

You needn 't worry about any reluctance on 
our part to produce critical reviews— as sever- 
al entries in almost any issue will show. Since 
space is at a premium, however, we concen- 
trated on the superior games in our first 
installment. 

As far as non-cartridge games go: sorry, Hen- 
ning, this mini-magazine is devoted to home 
video game systems; at present, we just don 't 
have the room to cover the entire universe of 
electronic gaming as the subject deserves. But 
who knows what may happen in the future? 



1942 

Capcom 

1283C Old Mountain View, Alviso Rd. 

Sunnyvale, CA 94089 

(408) 745-7081 

Nintendo Entertainment System; 

$29.95 

by Arnie Katz 

There's always room for a good all-out des- 
truction festival, and 1942 is guaranteed to win 
the heart of every joystick jockey. In this latest 
entry in Capcom's "Captain Commando" ac- 
tion video game line, the player becomes the 
pilot of the Super Ace. 

At the beginning of play, the Super Ace takes 
to the skies from the deck of an aircraft carrier 
to battle the red formations. The player earns 
bonuses, including improvements for the Su- 
per Ace, by destroying the enemy in 32 differ- 
ent scenes. Combat takes place over land and 
sea as the Super Ace blasts through wave 
upon wave of deadly foes to reach Tokyo and 
destroy the remaining Japanese aircraft. 

The video gamer employs the control pad 
to move the Super Ace in the corresponding 
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direction on the playfield, wiiicli scrolls down 
from the top at a steady, slow rate. Button "B" 
fires the front-mounted dual cannon at the 
machine-controlled enemies, which can rush 
at the player's craft from any edge of the 
screen. 

Button "A" is the Super Ace's main evasion 
weapon, apart from dodging. Pressing this but- 
tom permits the Super Ace to "loop the loop, ' ' 
to evade oncoming fire and midair collisions. 
The Super Ace can only execute a limited num- 
ber of these special maneuvers, so they must 
be saved for really tight spots, when simple 
control-pad movement won't save one of the 
player's three precious lives. 

The key to 1 942 is wiping out red formations. 
When a whole squadron bites the dust, the 
word "POW" appears on the playfield. Flying 



over the word gives the player some kind of 
advantage. The nature of the bonus depends 
on which formation the armchair pilot des- 
troyed. Some possibilities include extra 
machine guns, wingmen on each side of Su- 
per Ace, and a big batch of points. 

The documentation is much too sketchy. 
Though there are illustrations of Captain Com- 
mando and the control unit, it's a safe bet that 
most gamers would prefer a diagram of the 
playfield which explained all the on-screen 
notations. 

The graphics, based on an overhead view 
of the terrain, are decent, but play- 
action is definitely the focus of 1 942. Those who 
enjoy relentlessly battling against a wide range 
of opponents will get many hours of explosive 
fun from this Capcom title. As the song lyric 



says, 1942 was "a very good year." 

BurgerTime 

Data East USA 

470 Needles Drive 

San Jose, CA 95112 

(408) 286-7074 

Nintendo Entertainment System; 

$29.95 

by Arnie Katz 

Peter Pepper, the cartoonish hero of Burger- 
Time, is a chef in a peck of trouble. He must 
prepare a batch of hamburgers while avoiding 
interference from the "Food Foes," Mr. Hot 
Dog, Mr. Pickle, and Mr. Egg. That's the 
premise in this climbing and jumping game, first 
introduced in coin-op arcades by Data East in 
1982. 

The playfields of BurgerTime are construct- 
ed from arrangements of small horizontal plat- 
forms connected by ladders of various heights. 
Pressing the control pad moves the chef in the 
corresponding direction. Novice players may 
find it tough to position Peter Pepper when leav- 
ing a ladder for an intersecting platform, but 
a little practice soon remedies any problem. 

Components of hamburgers are stacked on 
many of the platforms. If the Peter Pepper pass- 
es over a platform with an ingredient, it drops 
a couple of levels. When the two halves of the 
bun, lettuce, and burger fall to the bottom of 
the playfield, the gamer gets credit for a com- 
plete hamburger. When the chef assembles all 
the hamburgers on the screen, the game ad- 
vances to the next playfield. 

The Food Foes take one of the player's five 
lives each time they touch the little chef. Run- 
ning is the best way to avoid this lethal con- 
tact, but Peter Pepper packs a couple of other 
potent powers. Throwing pepper at a Food Foe 
momentarily paralyzes it so that the chef can 
run over it for points. "Momentarily" is the oper- 
ative term, since the effects of peppering wear 
off in a few seconds. It is a good idea not to 
linger over a fallen food foe. 




The chef's other tactic is to drop parts of the 
hamburger onto a Food Foe. If one ot the 
nasties gets buried under a burger, lettuce, or 
bun, the player collects bonus points. 

The player also gains extra points for pick- 
ing up special objects like ice cream cones and 
French fries. They appear briefly, but they're 
worth a little extra effort to snag. 
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The rulebook is much too vague. Key ele- 
ments of the game, such as the method for 
dropping burger components (by walking com- 
pletely across the platform on which they sit), 
are not even mentioned! The rules for Burger- 
Time are not hard to guess, but explaining 
game procedures in more detail would remove 
all doubt. 

The main characteristic of this one- or two- 
player contest is nonstop motion. This makes 
BurgerTime very exciting, even though it lacks 
blazing lasers and roaring explosions. Excel- 
lent animation and charming characters dove- 
tail well with the light-hearted theme. 

Considering that it is almost six years old, 
BurgerTime has held up very well. This NES 
cartridge is a faithful translation of the coin-op 
hit, and it should especially appeal to younger 
video games. 

Lode Runner 

Broderbund Software 

17 Paul Dr. 

San Rafael, CA 94903 

(415) 492-3200 

Nintendo Entertainment System; 

$29.95 

by Arnie Katz 

The action-packed advertures of the nimble 
LodeRunner have entertained computeriststor 
several years in a series of three programs pub- 
lished by Broderbund. Now owners of the Nin- 
tendo video game system can take command 
of the intrepid agent as he invades the multi- 
level fortress of the Bungling Empire in this all- 
time classic. 

The player controls the Lode Runner, who 
must move back and forth on the horizontal 



platforms, climb up and down ladders, an^ 
shinny along poles to collect all the gold on the 
level while avoiding the lethal touch of the 
system-controlled guards. When the Lode Run- 
ner has gathered all the loot on a playfield, a 
previously invisible ladder appears. The well- 
animated on-screen character scampers up to 
the next playfield, and the game continues 

Although the Lode Runner is always outnum- 
bered by the Bungling guards, he has a few 
useful tricks. The most important is the ability 
to dig holes in the brick platforms. Although a 
guard eventually hops out of a pit, unless it 
closes up and crushes him first, it gives the 
Lode Runner time to reverse direction and try 
a different strategy. Button "B" digs a hole to 
the left of the on-screen hero, while button "A" 
does the same to the right. Of course, the Lode 
Runner must move carefully, because falling 
into a pit costs a life. 

Unlike most other climbing and jumping 
games, the height of a fall is immaterial. The 
Lode Runner gently floats down to a safe land- 
ing regardless of how far it is to the ground. 
Unfortunately, the guards have the same abil- 
ity, so the action moves up and down the 
screen a lot. 

Lode Runner offers 50 different playfields, 
each a worthy challenge to mind as well as 
muscle. And when the player has solved all of 
them, there's a construction module to create 
an infinite array of customized ones. Few video 
games equal Lode Runner for replayability. 
This cartridge is as fresh two months after pur- 
chase as it was the first time it popped into the 
slot. 

The Nintendo edition of Lode Runner is 
visually superior to the original computer game. 
The drawings of the hero and the guards are 
more detailed than in the computer version. 
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and the major features of the horizontally scroll- 
ing playfield are larger and easier to see. 

Even though there's no shooting in Lode 
Runner, the game does not lack excitement. 
Narrow escapes and tight squeezes abound, 
but quick thinking is just as crucial to success 
as fast reflexes. Few cartridges offer a better 
blend of action and strategy than Lode Run- 
ner. It's a prize worth capturing for any video 
gamer's library of games. 

Dig Dug 

INTV Corp. 

3541 "B" Lomlta Blvd. 

Torrance, CA 90505 

(213) 539-0100 

IntellJvision; $19.95 

by Arnie Katz 

If maze-chase games like Pac-Man have one 
drawback, it is predictability. Though some ar- 
caders enjoy memorizing dozens of playfield 
patterns, many others grow bored with the 
same old maze. Dig Dug disrupts patterns by 
permitting the character to excavate under- 
ground tunnels wherever desired. This makes 
each round of play quite different from the ones 
which preceed and follow it. 

Dig Dug, the player's character, burrows 
down into the ground from the surface, locat- 
ed at the top of the playfield, to start the game. 
After that, the home arcade directs the merry 
miner with the control pad as he creates tun- 
nels in the multi-colored earth. 

Although the gamer earns points for digging, 
the real prizes are the monsters Pookah and 
Fygar. The latter are more dangerous, since 
they can breathe deadly fire to the left or right. 
A monster can kill Dig Dug with a single touch, 
but the hero has an air gun, energized by hit- 
ting one of the action buttons, which can stun 
or even explode a monster. 

Rocks buried in the hard-packed earth offer 
another way to dispatch a pesky monster. Dig 
Dug can clear away the ground beneath a rock 
and cause it to drop on any unlucky creature 
which happens to be passing underneath at 
the wrong time. It takes a few tries to get the 
timing right on this maneuver, but it offers a low- 
risk way of eliminating a foe once properly 
mastered. 

The video gamer starts with three "lives." 
The player earns an extra one when the score 
reaches 10,000 points and another when it hits 
40,000 points. Thereafter, the supply of Dig 
Dugs increases by one every 40,000 points. 
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A little helmet in the lower left corner of the play- 
field symbolizes each tunneler currently held 
in reserve. 

Dig Dug is best described as relaxing rather 
than exciting. Though there is some time- 
pressure, players are generally able to tal<e a 
moment to plot strategy before Pookah and Fy- 
gar come within range. The play-mechanic, 
which requires neither blinding speed or pin- 
point accuracy, makes Dig Dug a good choice 
for family gaming sessions. Intellivision owners 
should try this one; they'll really dig it. 

Galaga 

Atari Corp. 

1196 Borregas Ave. 

Sunnyvale, CA 94086 

(408) 745-2000 

Atari 7800; $19.95 

by Joyce Worley 

Midway N/lanufacturing raked in so many 
coins on Galaxian, the classic shoot-'em-up 
earned a sequel, Galaga. Like the game that 
preceded it, Galaga became a mega-hit in the 
play-for-pay palaces. Now this super blastathon 
has come home, and it's a great addition to ev- 
ery joystick jockey's collection. Galaga for the 
Atari 7800 game system has all the action thrills 
that made this one of the best-selling sequel 
games in history. 

The gamer controls a ship which moves 
horizontally across the screen, facing the ranks 
of oncoming invaders. Aliens appear from 
above and from the sides of the screen, then 
flit around the sky like pesky mosquitos. After 
an airshow of fancy flying, they fall into forma- 
tion, a sort of flying wedge, with less valued 
alien ships in the forefront, and the flagships 
bringing up the rear. 

Moving the control ship back and forth 
across the screen lines up the gamer's shots 
at the oncoming aliens. But these creatures 
from beyond learned from their earlier earthly 
encounters; they don't just sit like pidgeons 
waiting to be plunked off. Instead, Galaga's 
ships are in almost constant motion, darting 
around the screen like gnats. They peel off from 
the formation to make head-on attacks on the 
player's position, then reappear at the top of 
the screen. Unfortunately, the aliens twist and 
turn like living things, making them devilishly 
hard to hit. 

Periodically, a flagship swoops down to send 
out a tractor beam. If the player's ship gets 
caught in its focus, it's captured. The ship ac- 
tually flies with the alien, as if they were yoked 
together. If he has another command ship in 
his arsenal, the player can regain his ship by 
shooting the alien when it is attacking. Shoot- 
ing it at any other time destroys the hostage 
vessel. If this maneuver succeeds, there's a 
great reward: now the player controls two 
ships, which move in tandem, doubling the fire- 
power available to defeat the invaders. 

The charm - and the difficulty - in Galaga 



comes from the twisting, turning, writhing pat- 
terns that the alien ships form in their attacks. 
The best strategy for racking up high scores 
is to anticipate the movement patterns these 
colorful little space cruisers take. Ships loop 
across the screen, sometimes doubling back 
on their own path, and the gamer must master 
the technique of aiming at where they're go- 
ing , instead of where they are the moment the 
missile is launched. Flagships have to be hit 
twice to destroy them, but there's a payoff. The 
entire fleet stops firing for a few seconds to 
mourn their fallen leader; this gives the gamer 
a chance to blast away before the retaliation 
begins anew. 

Scoring is tied to the difficulty of the shot. 
Hence, shooting an alien while it is flying in for- 
mation earns only half the amount of points. 
Three game modes, novice, advanced or ex- 
pert, tailor the game to suit. 

The excellent documentation that accompa- 
nies the game adds to the fun. In only two and 
half pages, it presents the background story, 
complete instructions and a full explanation of 
scoring, plus some strategy hints that actually 
work. 

Galaga for the home lives up to its coin-op 
antecedents. It's a high-action, high-skill con- 
test that will keep video gamers hitting the 
replay switch over and over again. 

Pro Wrestling 

SEGA c/o TONKA CORP. 

6000 Clearwater Drive 

Minnetonka, MN 55343 

(800) 328-3628 

Sega Master System' $30 

by Bill Kunkel 

Sega's version of Pro Wrestling is a dreary 
rehash of Data East's mediocre wrestling coin- 
ops. The player chooses from among four tag 
teams (or, in non-team competition, eight sin- 
gle wrestlers): the Road Warrior-like Mad Sold- 
iers; the Samoan-styie Orient Express; the 
Great Maskmen; and the baby-faced Crush 
Brothers. Each team has eight custom maneu- 
vers (each wrestler has four), including a Ger- 
man suplex, dropkick, hangman-style neck- 
breaker, bodyslam and clothesline. 

All wrestlers can punch and kick and move 
freely about the ring, but the specialty moves, 
or "techniques" as Sega calls them, are largely 
situational. Some maneuvers, for example, only 
work outside the ring (one of the heel team 
techniques lets them grab a folding chair and 
smack a foe over the skull), while others can 
only be executed after hurling one's opponent 
into the ropes. 

The control system is a little complicated, but 
it's the terrible graphics that sabotage this 
game. The on-screen wrestlers appear to be 
no more than three feet tall, though the ring is 
designed in proportion to "normal"-sized wres- 
tlers. This lack of visually articulated bodies 
makes it almost impossible to gauge two grap- 



plers' relative positions, much less determine 
what they are actually doing to one another. 

The animation is so choppy and inadequate, 
the designers deemed it necessary for each 
hold's name to appear prominently on-screen 
as it is being executed. 

There are some pointless frills, including a 
brief ring entrance with theme music, for each 
team or wrestler. It would have been far more 
fruitful for that time and memory to have been 
devoted to improving the game itself. 
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The documentation is occasionally confus- 
ing in its use of European/Japanese tectnnolo- 
gy, wfiich will be totally "Greek" to most users 
(what, for example, is a "senton from corner 
post"?). 

Players must choose among three compet- 
ing "Leagues" for singles or tag-team compe- 
tition. These leagues differ in the number of 
"rounds" required in order to win. The concept 
of "rounds" is all-but-alien to American mat 
fans, however, and players will wonder why a 



pin isn't enough to win. 

In singles competition, different opponents 
come with different referees. Since the referee 
should have no impact on the match, however, 
this looks like yet another example of energy 
expended in the wrong direction. 

All in all, Saga's Pro Wrestling is a loser on 
a count-out— before it even gets to the ring! 

Kung-Fu Master 
Activision 



P.O. Box 7287 
Mountain View, CA 94039 
Atari 2600; $13.95 

by Bill Kunkel 

Stop me if you've heard this one: A beauti- 
ful princess has been kidnapped and taken to 
the castle of the Evil Wizard. The fortress is a 
vast deathtrap, filled with all manner of menace, 
and the only warrior with even a prayer of res- 
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cuing her is you: the "Kung-Fu Master." 

The Wizard's stronghold is no cracl<er box; 
it consists of five levels, each one crawling with 
the nnalevolent mage's misanthropic minions. 
You've got your basic, Dacoit-like henchmen, 
easily dispatched with a single punch or kick; 
knife-throwers are deadlier and more durable. 



player's energy level while the second gauges 
the enemies' strength reserves. When the bar 
runs out, the corresponding character dies. 
Kung-Fu Master is played against a time 
limit. An on-screen timer gives a warning sig- 
nal when it reaches 200; at zero the player loses 
a life. 



System is a beautiful-looking action gridiron 
simulation with the emphasis on running, pass- 
ing and kicking. 

In the one-player version, the game is exclu- 
sively offense. The player begins by selecting 
a "division" and team. Though they are 
dubbed "AFC" and "NFC," these are not NFL 




as are the acrobatic martial-arts midgets; dra- 
gons, snakes, killer moths, and, at the end of 
each level, one of the nearly-indestructable Five 
Biggies. 

The player's surrogate fighter and his vari- 
ous opponents appear on-screen against a 
horizontally-scrolling background which oc- 
cupies approximately one-half of the screen. 
This combat area is rendered in simple lines 
which attempt to suggest an Oriental at- 
mosphere. 

Combat consists of left/right movement 
jumps, squats, high and low kicks, high and 
low punches and breaking a hold (achieved by 
jiggling the joystick from side to side). 

There are also a pair of energy bars at the 
base of the screen. The first bar monitors the 



Kung-Fu Master is limited by the lack of pos- 
sible combat movements. Users familiar with 
arcade and computer martial-arts games may 
be disappointed by the lack of sweep kicks, 
flips, spin kicks, blocks, etc., but the game 
should provide first-rate action . 

Great Football 

Sega (Mega Cartridge) 

573 Forbes Blvd. 

S. San Francisco, CA 94080 

(415) 742-9300 

Sega Master System; $30 

by Bill Kunkel 

Sega's Great Football for the Sega Master 



divisions; the teams have names like "Spar- 
tans," "Dukes" and "Boomers." Moreover, the 
documentation makes no distinction between 
"AFC" and "NFC," or even among teams, so 
these selections appear to be totally arbitrary. 

The game begins with the computer- 
controlled team kicking off to the user's squad. 
At the beginning of the contest, the opposing 
team is assigned a set number of points (ex- 
ample: 35), which the player's team must sur- 
pass. The user's team remains eternaWv on 
offense, with only the clock and some rather 
indifferent defenders between him and victory. 

On rushing plays, unless the defenders get 
lucky and bury your RB in the backfield, a mini- 
mum five yards is a lock. Of course, there isn't 
enough time to rush all game to score enough 
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points to pass the opposition. Passing plays ar- 
en't much harder; interceptions are rare and 
pass rushing even rarer. The computer plays 
a kind of ultimate "Pre-vent" defense, happily 
surrendering five, ten, 15 or even 20 yards in 
exchange for a couple of ticks off the game 
clock. 

Great Football is a more satisfactory, realis- 
tic contest when played in two-player format. 
Humans invariably present a greater challenge 
on defense, and the game is much less distort- 
ed as a result. 

The visuals get mixed reviews. The field is 
an eye-popper; lush green with a mammoth full- 
color eagle painted on the middle of the 50 yard 
line. The players, however, flicker 
outrageously — even when they're not mov- 
ing!— and periodically split into top and bottom 
halves. This, combined with the all-offense 
orientation, creates the impression of football 
in the Twilight Zone. 

Great Football is not exactly great, but 
offense junkies and players who can find op- 
ponents should get off on it. 



Q&cA 

by The Game 

Doctor 



I tell you, it's absolutely amazing. Yours truly, 
the Original Game Doctor, has only to dust off 
the old shingle and patients are all over me like 
plastic on a joystick. 

Of course, it's been a while since I was in- 
volved in active practice. Aside from the occa- 
sional cocktail party guest with a cranky RF 
modulator, the Dr. Gillespie of electronic gam- 
ing has spent most of his time messing with golf 
simulations and perusing snapshots of former 
Game Nurses. 

Fortunately, game diagnosis is like riding a 
bicycle to a man of my vast experience, so let's 
jump right in with our first question; 

Q; Which company, if any, now owns the 
right to translate Exidy, Williams, and Bal- 
ly/Midway arcade games to videogame? In 
other words, can we hope to see such classics 
as Pac Man, Joust, Tapper, etc. available for 
the Nintendo system? 

Dennis Sellers — Nashville, TN 



A; These days, no one publisher buys ex- 
clusive rights to home versions of any arcade 
game. Once upon a time, companies like Atari 
wou\cl buy "exclusive home rights" to smash 
hits like Pac Man. The upshot of this was that 
only Atari system owners -could ever hope to 
play these games. 

Thankfully, those days are over. Today, 
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licensing deals are cut on a system-by-system 
basis with a variety of publishers often buying 
individual system rights to the same game. We 
have seen computer games, like Choplifter 
(Broderbund), appearing under separate 
license on both the Sega and Atari 7800 video- 
game systems. 

When it comes to home versions of arcade 
games, however, it's a different story. The 
videogame system manufacturers themselves 
have strong roots in the arcade business, as 
well as access to veritable libraries of past and 
present coin-ops. So if Nintendo wants to pub- 
lish a home version of an arcade game, it's like- 
ly to be a Nintento arcade game and not an 
Atari or even a Williams game. 

Sega, for example, is unlikely to publish a 
translation of the Atari coin-op, Pole Position. 
When Sega wanted a driving game for its 
video game system, it sensibly turned to its own 
arcade hit. Out Run. 

One of the big differences between the cur- 
rent video game boom and the peak sales peri- 
od of the early 80s is that the system manufac- 
turers exert much more control over the out- 
put of third-party publishers. So not only is Sega 
unlikely to publish Pole Position, it is equally 
doubtful that it would encourage third-party 
publishers in such a venture. 

The rights to the arcade classics you ask 
about are still available, I'm sure, but I know 
of no current plans to publish them for the N ES. 
If Nintendo perceives a real demand for these 
games, and has nothing similar in its own coin- 
op inventory, however, you might someday see 
them. 

Q; I want to know why software companies 
can easily take 2-meg arcade games and 
squeeze them into a 16K cartridge, but 
MicroProse can't squeeze a 64K program 
[Gunship, which MicroProse is not translating 
for Atari 8-bit systems because so many of 
them have insufficient memory] into 48K? 

Louis J. Ferro — New Jersey 

A; That's a good question, Louis. 

For one thing, those "2-meg" arcade games 
you refer to are almost exclusively action 
games. They have a minimum of game logic, 
and almost all that lavish memory is devoted 
to sound and graphics. It is very easy to scale 
down sound and graphics. 

Look, for example, at the many fairly accept- 
able Atari 2600 versions of arcade hits like Pole 
Position, Ms. Pac Man and Joust; They don't 
look exactly like the originals, but they play okay 
and the graphics are recognizable. Then take 
a game like Zoric (Infocom), which has no 
sound or graphics and can be played on vir- 
tually anything south of a touch-tone phone, 
and just try to put it on even the top-line video- 
game systems! 

Having said that, I'm sure it's within 
MicroProse's power to produce an acceptable 



48K version of Gunship for the 8-bit Atari sys- 
tem; it just doesn't make any economic sense. 

When a publisher produces a "rollover" or 
new translation of an existing game for a sys- 
tem with secondary sales potential (such as the 
Atari 8-bit systems), it has got to be a fairly 
straightforward process. That program must be 
transportable to the new system, with a mini- 
mum of reworking, and extensive code- 
crunching does not qualify under that criterion. 

MicroProse obviously feels that potential 
sales do not justify the time and effort which 
would be required in order to crunch that code 
down to 48K. 

Q; What's wrong with Sega's distribution? I 
live in Willoughby, Ohio, just outside Cleveland, 
and the Toys R Us and video store I go to gets 
me stuff from Comtron, Sega's distributor. Forty 
miles east of here is a Hills store, and they've 
had Shooting Gallery since May, but Toys R 
Us still doesn't have it. TRU has Great Soc- 
cer, however, and Hills doesn't. On Septem- 
ber 3, the video store got me 3-D glasses and 
3-D Missile Defense, Quartet, Great 
Vollyball, Great Football and Gangster 
Town, which no one else has. 

From what I've seen, Nintendo games come 
out everywhere at the same time; doesn't 
Sega/Tonka know you can't sell product if it 
isn't available? 

Michael Gunn — Willoughby, OH 

A; Oh, they know it, Michael, they know it. 
But remember, Sega is the new kid on the 
block, while Nintendo has had several years 
to establish a smooth-running distribution chain. 
NES has been able to build up its software line 
slowly, one and two titles at a time. 

Sega only really went national in the last year. 
Game distribution is still uneven, but it is bound 
to improve quickly. The recent agreement with 
Tonka should bring the company's products 
to parity very quickly, as Sega equipment and 
supplies begin to be distributed through the 
Tonka marketing channels. Meanwhile, distri- 
bution is a little scattershot, and loyal Sega- 
philes like yourself will have to range a little far- 
ther and a little wider in order to complete your 
collection. 

That's all for this.,.,issu.e.-..gang! Send your 
questions to "The Gaffte-Doctor" c/o ANALOG 
Computing. H 





■ have just returned from a 
week-long business trip in 
Columbus, Ohio. On the trip, I did 
something that I had not done 
before — I carried along a Zenith 
MS-DOS portable laptop comput- 
er. This was not the first time I had 
taken a computer along with me 
when I traveled, but it was my first 
trip with the Zenith Z-181 portable. 
Computing on the go is an excel- 
lent way to maximize your produc- 
tivity. And surprisingly, almost any 
laptop computer can be interfaced 
with your Atari machine — either ST 
or 8-bit — when you return home. 
I'U give you aU of the exciting inter- 
facing details later in the column. 



I h-i ^ C -■ <z> cr> cri , 

The Zenith Z-181 is basically a good 
computer, as portables, and especially 
laptops, go. It has one of the nicest, most 
readable screens of thd genre. Using a 
Supertwist LCD screen with backlight- 
ing, the 2 5 -line by 80-column screen is 
readable in any lighting condition. 
There are two controls for the screen — 
contrast and brightness — and together 
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they provide you with all the screen con- 
trols you need. The white on blue or 
blue on white screen is almost eerie to 
see and requires little time to become 
used to. 

The machine has two SVz-inch floppy 
disk drives, each with the ability to store 
720K bytes of programs and data. 
These disks are exactly the same as 
those used by the Atari ST. That's twice 
the amount that can be stored on a stan- 
dard 5V4-inch MS-DOS diskette. Other 
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GEAR UP YOUR 

DISK DRIVE 

FOR BIG SAVINGS! 

TO SUBSCRIBE TO ANALOG 

TURN TO PAGE 2 
TO SUBSCRIBE TO ST-LOG 

TURN TO PAGE 99 

SAVE MONEY AND TIME BY HAVING 
YOUR FAVORITE COMPUTER MAGA- 
ZINE MAILED DIRECTLY TO YOUR 
DOOR AT A FRACTION OF THE COVER 
PRICE! 



MegaByte 

Computers and Electronics 

Call TOLL FREE 1-800-255-5786 ORDERS 
For any inquiries U713W38-2231 ONLY 


l09W.B«yAre« PUm# C»ll For Low Prlcii on M»ny 
Web.ler.Tex« - Oth.r lUm.H 






GAMES Applicatlona 

DARK CASTLE Cad-iD2J02 
27.97 59J7 
OUNOEON MASTEK Cyber Conuol 
{INSTOCKI)27.97 43.97 

Cyber Piimt 
F- 13 STRIKE EAOLE 47.97 


GRAdEPlUS 
^•«il»a«k syiitM) 


\Si99y 


^^•" DaU MkBuer 
""""Si'" " ^**f'^ 

GONE FISHIN 27.97 "^"Pj'Jl!"^ 
MOEBIUS 38.97 ^ ^,. ''„ 

OIDS 23.97 PubltthiOf P«rt«er 
Police Quest 29.97 *2.97 
PrMidenl Elect SupetChKged 
28.97 EuyDriw 94.97 




TvRbo ST 

SUPEKCHARGE 

YiuirsTTa^ 

n*' MHZ!!! 


CUSTOMIZED 
//Jid iPisiJ 

S499 ..4ur 

£xitiiiAl Floppkt 


25.87 Kuma 

Ullinui IV 38.97 T'-- ^0 ~.. ♦.--« 
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A COMPUTER SOFTWARE SERVICES 
P.O. BOX 17660, ROCHESTER, N.Y. 14617 
ATARI" PHONE (716) 467-9326 

THE 
$69.95 "SUPER ARCHIVER"!® 

(for ATARI 1050 drives) 

The new SUPER ARCHIVER, obsoletes all copying devices currently available 
(or the ATAR1 10501 It eliminates the need for Patches, PDB files, Computer 
Hardware, etc Copies are exact duplicates of originals and will run on any 
drive; without exaggeration, the SUPER ARCHIVER is the most powerful 
PROGRAMfVliNG/COPYiNG device avoiloble for the 10501 Installation consists 
of a plug-in chip and 6 simple solder connections. Softwares included. 
Features ore: 

• ARCHIVER/HAPPY ARCHIVER 
COMPATIBLE 

• BUILT-IN EDITOR-reads, writes, 
displays upto 35 sectors/track 
(short) 

• BUILT-IN CUSTOM FORMATTER - upto 
40 sectors/frock 

• BUILT-IN DISASSEMBLER 

• BUILT-IN MAPPER - upto 42 sectors/ 
track 

• DISPLAYS/COPIES Double Density 
HEADERS 

• AUTOMATIC FORMAT LENGTH 
CORRECTION 

• SIMPLE INSTALLATION 

The SUPER ARCHIVER is so POWERFUL thot the only programs v/e know of that 
can't be copied ore the newer ELECTRONIC ARTS and SYNFILE/SYNCALC (34 

FULL sectors/track). If you want it ALL buy the "BIT-WRiTER"l also. . . . then 

you'll be able to copy even these programs! 

THE SUPER ARCHIVER ^_^ ^_ 
$79.95 "BIT-WRITER"! $79.95 

The Super Archiver "BIT-WRITER"! is capable of duplicating even the 
"uncopyable" EA and SYN series which employ 34 FULL sectors/track "BIT- 
WRITER"! is capable of reproducing these and FUTURE protection schemes 
of non physically damaged d^ks. PLUG-IN circuit board and 4 simple solder 
connections. The SUPER ARCHIVER with "BIT-WRITER"! is the ultimate PRO- 
GRAMMING/COPYING device for Atari 1050's EXACT DUPLICATES of originals 
are made! Copies run on ANY drive. 



• TRUE DOUBLE DENSITY 

• ULTRA-SPEED read/write 

• FULLY AUTOMATIC COPYING 

• SUPPORTS EXTRA MEMORY 

• SCREEN DUMP to printer 

• TOGGLE HEX/DEC DISPLAY 

• SECTOR or TRACK TRACING 

• AUTOMATIC DIAGNOSTICS 

• DISPLAYS HIDDEN PROTECTION 

• ADJUSTABLE/CUSTOM SKEWING 

• AUTOMATIC SPEED 
COMPENSATION 

• AUTOMATIC/PROGRAMMABLE 
PHANTOM SECTOR MAKER 



DEALER/DISTRiBUTOR/USER GROUP Discounts available call for info 
Phone Orders - IvIASTER CARD, VISA 
Ivlail - Ivloney Orders, Check 



$69.95 



"ULTRA SPEED PLUS!" 



A 

ATARI' 

$69.95 



Imagine a universal XI_/XE Operating System so easy to use that anyone can operate 
it instantly, yet so versatile and powerful that every Hacker, Programer and Ramdisk 
owner will wonder how they ever got along without it! Ultra Speed Plus puts 
unbelievable speed and convenience at your fingertips. Use ANY DOS to place 
an ULTRA SPEED format on your disks, boot any drive (1-9) upon power-up, format 
your RAMDISK in Double Density activate a built-in 400/800 OS for software com- 
patibility, plus dozens of other features to numerous to mention! Below are just a 
FEW features you'll find in the amazing OS: 



■ ULTRA speed S10 for 

most modified drives 
' ULTRA Speed is toggleable 

• Boot directly from RAMDISK 

• Special limer circuits noi re- 
quired (or 1 or 2 Meg upgrades 

' Background colors adjustable 

> Reverse use of OPTION key 

• Cold-starf w/ithiout memory 
loss 

> Built in floppy disk configura- 
tion editor (1-9) 



• Built in RAMDISK configura- 
tion editor (1-9) 

• RAMDISK exactly duplicates 
(loppy drive so sector copy- 
ing and sector editing are 
now possible 

• Built in MINI Sector Copier 

• Toggle SCREEN OFF for up to 
40% increase of processing 
speed 

• Toggle infernal BASIC 



• Rom resident disk loader 
program (MACH 10 menu) 

• DOUBLE DENSITY RAMDISK 
capable 

• Entire MEMORY lest Ihof pin- 
points defective RAM chip 

• Boot any drive (1-9) upon 
power-up or cold-start 

• Supports memory upgrades 
up to TWO MEGABYTES 

" THREE Operating Systems in 
one (XL/XE, 400/800, ULTRA 
SPEED PLUS) 



$29.95 RAMDISK "WRITE-PROTECTOR!" $29^5 

Hackers, Programers, or BBS users. . . if you own a RAMDISK (memory upgrades for 
your XL or XE computer), think about this: Every disk drive ever manufactured has 
WRITE-PROTECT capabilities. . .except your RAMDISK. Without it, your valuable stored 

data/program lie naked, awaiting that one mistake that will wipe out hours, maybe 
weeks of precious programming efforts, End the fears of accidental formatting or 
overwriting by installing our universal RAMDISK "Write-Protector!" Works on all memory 
upgrades up to 2 megabytes. Simple installation. Only 329.95. 



'XF551 ENHANCER!' 



$29.95 



$29.95 

The XF551 Atari drive is a fine product with one major flaw. . . it writes to side TWO 
of your floppy disks BACKWARDS. This causes read/write incompatibility problems 
with all other single sided drives made for Atari such as Indus, Trek, Itona. Percom, 
Astra, Atari 1050, Atari 810, etc Add the XF551 ENHANCER to the new XF551 drive 
and your problems are over! This device will restore 100% compatibility between 
all drives while retaining all of the original design qualities of Ataris' super new drive. 
The XF551 ENHANCER is a MUST for all XF551 owners. Installation is simple Only S29.95. 
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laptop computers also use the S'A-inch 
disk, and as ST users already know, the 
disks are more rugged, compact and 
easier to handle than the 5%- inch disks 
that the 8-bit Atari and most other com- 
puters use. 

The Zenith Z-181 uses a CMOS ver- 
sion of the 8088 microprocessor run- 
ning at 4.77 megahertz, making the 
computer's processing speed typical of 
MS-DOS PCs and clones. However, by 
IBM AT and AT clone (machines that use 
the 80286 processor) standards, this 
machine seems to crawl. AU else consid- 
ered though, the Zenith machine ranks 
with the best. The disappointment 
comes, however, with its usabUity and 
(whew!) weight. Usability is primarily 
hampered by the pivoting screen. 

The screen is a good 12 inches tall, 
enough to cover the entire machine 
when it's closed. When open, it's almost 
impossible to use the computer on an 
airplane when travelnig in coach or bus- 
iness class. The tray table has barely 
enough room to hold the computer it- 
self, and there is no way the screen can 
be pivoted up to the normal viewing po- 
sition. If the person in the seat in front 
of you decides to recline his seat, you 
can forget about computing altogether. 

I had the opportunity to travel first 
class on the return trip (a $15 Continen- 
tal upgrade, mind you), and the machine 
was quite usable. Since the first-class 
seats have their tray tables attached to 
the occupants' seats, there is plenty of 
room for the computer, and the screen 
can be pivoted up to the proper position. 

If you can afford to travel first class 
all of the time, this computer still may 
not be for you. Why? Because it is heavy. 
How heavy is heavy? The advertisements 
for the Zenith Z-181 declare it as an 
11-pound laptop computer. That weight 
must have been determined on the 
moon, with its 14 of the Earth's gravity 
level. Here on Terra, the machine real- 
ly weighs 16 pounds according to the 
Continental baggage scale at Newark In- 
ternational Airport. That weight is the 
actual carryhig weight with the case, bat- 
tery pack, charger and one box of ten 
floppy disks. 



It doesn't take long for 16 pounds to 
get really heavy. Even when carrying the 
whole kit and caboodle by the shoulder 
strap, it's still a substantial weight. If 
computing on an airplane with a Z-81 
is important to you, then you had bet- 
ter be well-heeled and also regularly 
work out with weights. If you don't care 
to compute in the air and don't expect 
to be toting the machine around very 
much, it's a nice computer with a street 
price of approximately $1,800. But 
there's a better alternative for comput- 
ing on the go and then linking up with 
your Atari at home. 

~T~|-i^ 1 J I ti r-r-i;a.-c^ 



I use a laptop computer mostly when 
I travel and mostly on an airplane. 
You may recall reading several Con- 
sumer Electronics Show reports over the 
last couple years, written on the return 
plane ride from Las Vegas or Chicago. 
High-altitude computing makes bormg 
and somewhat wasted air-travel time 
productive. 

For the last several years, I have been 
using a Radio Shack Model 102 laptop 
computer and portable disk drive. This 
machine is truly one of the best kept 
secrets in all of computerdom. Transfer- 
ring files to the Atari is painless too. 

The Radio Shack Model 102 com- 
puter is an improved version of the 
original Model 100 computer. Both 
machines share almost identical fea- 
tures, except that the Model 102 weighs 
a mere three pounds rather than four, 
and stands one inch shorter than its 
predecessor, roughly IV2 inches tall. 
The width and depth of both machines 
is about the size of an 8V2 by 11- inch 
sheet of paper held sideways, hence the 
nickname "notebook" computer. 

The Model 102 has a flat LCD screen 
that is flush with its keyboard. The 
screen contains eight lines of 40 charac- 
ters with large letters that are easy to 
read, assuming you have good ambient 
light. The contrast knob does help, 
though. The computer doesn't contain 
a built-in disk drive and can be outfit- 
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ted with a itiaximum of 32K bytes of 
Random Access Memory. Fortunately, 
there are several programs contained in 
Read Only Memory along with a useful, 
somewhat limited version of BASIC. 

The internal applications consist of a 
text editor, telecommunications, address 
and scheduler programs. The text edi- 
tor is simply that — a simple but useful 
program that allows text to be entered, 
minimally edited and saved in the bat- 
tery-backed-up, nonvolatile memory as 
a file. The telecommunications program 
works with the built-in 300 baud mod- 
em. The other two applications are not 
worth discussing. 

In addition to the built-in modem, the 
computer contains bar-code reader, 
serial, parallel, external disk drive and 
telephone (RJ-11) jacks for connecting 
to other devices. Four AA batteries are 
used to power the computer, usually last- 
ing about 15-20 hours a set. The street 
price of a Radio Shack Model 102 with 
the maximum 32K memory is about 
$400. 

The Radio Shack portable disk drive 
uses 3 '/2-inch floppy disks and stores 
180K bytes per disk. It also uses four 
AA batteries and weighs less than two 
pounds. The Ust price of the disk drive 
is $200. A complete Radio Shack Model 
102 computer outfit consisting of com- 
puter, disk drive and power transform- 
er is under five pounds. 

F* 1— ^ p> ^ f~ i r~i .S tc^ 
^^^nn I — I |=> 

As far as I am concerned, both the 
Zenith and the Radio Shack computers 
have limited usefulness by themselves. 
They become truly useful when you in- 
terface them with your Atari computer 
back home. The mechanics of upload- 
ing files from the portable computer to 
the Atari (either 8-bit or ST) are essen- 
tially the same. You need a serial cable 
to connect the two machines together via 
their RS-232 ports and a modem pro- 
gram running on each machine. You 
also need one additional, very important 
item: a null modem adapter which is a 
connector that attaches to one end of the 
communications Unk to allow the two 



machines to talk to each other. 

You can buy a nuU modem adapter for 
about $20 from Radio Shack, or if you 
want to construct your own, reverse the 
wires on pins 2 & 3, 5 & 8 and 6 & 20 
on one end of your cable only. In addi- 
tion, jumper pins 4 to 5 together on 
both ends of the cable. If you are not 
familiar with soldering techniques or are 
not sure how to take an RS-232 connec- 
tor apart, cut and strip the wires, etc., 
then it would be best to have it done by 
someone who knows what they are 
doing, or simply buy the adapter which 
can be used on any serial cable. 

Once the cable is correctly attached 
to both computers, the procedure is sim- 
ple. The telecommunications program 
is run on both machines, at the same 
speed and with the same configuration, 
and the laptop becomes the sending 
computer, and the Atari becomes the 
receiving computer. 

^^^rTn r-1 ^ I 9 i=> 

Connect the Model 102 computer to 
your Atari 850 interface (or other 
RS-232 connection) with a serial cable 
and null modem adapter or a modified 
RS-232 cable. The RS-232 jack on the 
Model 102 needs a male plug and the 
RS-232 jack on the Atari interface 
needs a male 9-pin connector. Next, 
turn on the Model 102 computer. Then 
boot up the Atari computer and run a 
telecommunications program. I like the 
communications program from Home- 
pak called Hometerin. Although Batter- 
ies Included is no longer in business, 
Homepak should still be available in 
many stores. If not, any terminal pro- 
gram will work. 

Set the terminal parameters on the 
Atari to 2400 baud, 8-bit word length, 
I stop bit, no parity, full Duplex, no 
emulation and XON/XOFF enabled. I 
have not been able to consistently trans- 
fer files at higher speeds without errors; 
so I always use 2400 baud. Use the 
"capture" command on the Atari to 
receive the transmission from the Radio 
Shack and then store it as a file. 

You could use the internal modem on 
the Model 102 to transfer a file to the 



Atari, but at a maximum speed of 300 
baud, it might take a while. Instead, you 
should not only bypass the internal mod- 
em but also the telecommunications 
program. Then, from within the Radio 
Shack's text editor, save a file to the 
"COM" port (the Model 102 serial 
port). To do this, press the F3 function 
key and type "COM:68NlE." This 
means save a file to the COM port, trans- 
fer it at 2400 baud, use an 8-bit word 
length, no parity transmission with 1 
stop bit and XON/XOFF status enabled. 

Once the command is given, the file 
will be transferred to the Atari and saved 
as ASCII text. Once saved as a file, just 
about any Atari 8-bit word processor can 
then be used to access the file and edit 
it as you wish. 

The procedure is exactly the same for 
the Model 102 and Atari ST combina- 
tion. The only difference is the particu- 
lar communications program that is 
used on the ST to interact with the Ra- 
dio Shack computer. 

"W^t~^ f::» |3> i n ^ I > f=» 

Comparing the prices of the Zenith port- 
able to the Radio Shack portable, you 
get similar numbers if you calculate it 
by the pound, $106 vs. $120. However, 
the Radio Shack computer is cheaper, 
more value for the money and weighs 
less than a Vs of the Zenith. Enough ad- 
vantages to, ah, "outweigh" the compe- 
tition of the Zenith and other portable 
laptops currently available. Choosing the 
Model 102 computer to compute on the 
go is both productive and rewarding. Af- 
ter one or two tries, you'll master the art 
of transferring files from one machine 
to another. My only advice is to be sure 
to have plenty of extra AA batteries on 
hand for the Model 102 and portable 
disk drive. They seem to have an unend- 
ing appetite. 

Arthur Leyenberger is a human factors 
psychologist and freelance writer living 
in New Jersey. He has written over 100 
articles about computers in the last four 
years and continues to be an Atari 
enthusiast. When not computing, he en- 
joys playing with robotic toys. e 
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Clout: A word describing 
the power that most 
major computer 
hardware and software 
manufacturers rely on 
when they attempt to 
move or change their 
markets. Atari has 
sought for it, but on 
most occasions failed. 
Apple recently began to 



show it, but is still 
having problems. IBM 
always had it, but is 
finding it needs more. 
Word Perfect Corp. has 
it and uses it effectively. 
Just look at their recent 
announcement that they 
are considering pulling 
out of the Atari ST 
software market. 



Mr. Acerson, Director of Corporate 
Communications, Word Perfect Corp. 
(WPC), has announced that they are dis- 
mayed at the availability of their word 
processor, Word Perfect, on Pirate 
Bulletin Board Systems (BBS). WPC 
has found complete versions of Word 
Perfect on three BBSs just months af- 
ter the release of its first ST product. 
WPC won't be hurt by the loss of a cou- 
ple of sales of its powerful word proces- 
sor, however, WPC has openly said that 
it is in the business of selling software 
and not of hunting after software 
pirates. 

WPC 8 announcement has reignited 
the controversy over software piracy. 
The Atari XL computer was plagued 
with numerous problems, largest of 
which was the issue of piracy. Software 
publishers found that larger and larger 
numbers of illegal copies of their 
products were making their way up the 
gravevine. Piracy has long been a 
problem with most computers, 
however. Atari has held the reputation. 

WPC has said it has not found simi- 
lar piracy problems with the Amiga or 
IBM user community. Odd. Of all the 
people I know with IBM PCS just about 
every one of them has a pirate copy of 



Lotus 123, dBase III Plus, Word Per- 
fect and Microsoft Word. The honest 
ones later bought legitimate copies. But 
most don't. 

Software piracy exists on all 
machines. IBM, Macintosh, Amiga and 
Atari all have problems with software 
piracy. So why has WPC chosen not to 
"go with the flow?" The answer to this 
question goes back a couple of years to 
Atari Corp.'s desperate search for 
major software vendors (Lotus, Ashton 
Tate, Microsoft, etc.) to support their 
new ST machine. WPC was the first 
major company to move their highly ac- 
claimed word processor onto the ST. At 
a time when the highest price for a word 
processor was $79.95, Word Perfect 
was wheeled into the ST market on its 
six-disk set at a whopping $399.95. 
Word Perfect has since basked in the 
splendor of its own elegance and 
strength. Atari Corp. and all of its sup- 
porters now had some clout. 

WPC is a very large company that is 
used to marketing software to a huge in- 
dustry. Software markets for the IBM 
PC play games by determining who has 
the most clout. So, it takes little reason- 
ing to see how an announcement like 
WPC "pulling out of the ST market" 
might shake things up with the pirate 
BBSs. Hopefully, it will reduce the 
amount of piracy that normally resides 
in the ST software market. If it does 
then the fate of the ST lies more in the 
hands of the ST users community than 
it does in the hands of pirates. 
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Gaming on the ST has become really 
fun. The new line of game releases has 
included some technically superb 
graphics, game play and sound effects. 
FTL Games is providing a number of 
the better games. Their credits include 
Sundog, Oids and Dungeon Master. 

In a recent BBS conference, Wayne 
Holder, president of FTL Games, said 
that sales of Dungeon Master (DM) were 
brisk. DM ($39.95 list) was first shown 
in 1986. The demonstrations showed a 
three-dimensional high-resolution 
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graphic dungeon that you had to move 
through. And move you did — the motion 
was animated, giving you a real sense 
of depth and complexity. DM's develop- 
ment crew originally worked with Pas- 
cal. Development eventually bogged 
down and FTL switched horses to the 
C language. According to Doug Bell, 
DM programmer, the C learning curve 
can be brutal. Eventually, they deve- 
loped a games compiler which was used 
to complete the project. 

Recently, FTL Games released Dun- 
geon Master 1.1, which corrects some 
bugs and adds new features to this 
graphic adventure game. If you're won- 
dering if you have the latest version, 
look to the upper right corner of the 
save game screen. 

DM is typical of how complex it is to 
develop games for a machine as ad- 
vanced as the ST. Mike Newton deve- 
loped the dungeon layout, while Andy 
Jaros, created the graphics. 

FTL has completed German and 
French versions of DM. The European 
marketing wiU be handled by Mirror- 
soft, Ltd. You might recognize the name 
from Mirrorsoft's desktop publishing 
program Fleet Street Publisher. 

Holder said that Tracy Hickman is 
writing a libit book for DM. Tracy is the 
creator of the Dragon Lance series for 
TSR. Holder expects the book to be out 
within the next few months. In the mean- 
time, they do accept support phone calls 
at (619) 453-5711. 

Holder is trying to release four to six 
games per year. However, translations 
of their games to other computers slow 
this product release schedule. So far 
this year they have released DM and 
OIDS. 

OIDS ($34.95 Ust) is an arcade- 
quality game which has flavors of 
Asteroids, Lunar Lander, Choplifter 
and Gravitar, all popular arcade games. 
The graphics and game play are excel- 
lent. OIDS' neatest feature is the abili- 
ty to construct your own playfields us- 
ing a construction set. The game is filled 
with interesting characters and anima- 
tion, so you should find hours of excit- 
ing game play. Dan Hewit, OIDS 



programmer, has incorporated many 
functions to customize the game to your 
level of play. 
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The 1986 release of PubUshing Part- 
ner (PP) was heralded as the answer to 
the missing Atari desktop publishing 
system. At $149.95, PP was a bargain 
when comparing it to similar software 
packages on the Mac and IBM PC. The 
program let you import text and graph- 
ics and visually determine the layout of 
the printed page. PP was originally sup- 
posed to support Digital Research's 
GDOS operating system, but later they 
went to their own font/device driver sys- 
tem. Later, PP 1 . 1 was released to fix 
some bugs that had been found. At the 
same time a number of fonts and device 
drivers became available, which further 
established PP as 'the' desktop publish- 
ing system of the ST. 

Soft Logik has now released Publish- 
ing Partner Professional. At a high re- 
tail price of $199.95, the new system 
sports auto text flow around graphic im- 
ages, auto hyphenation, kerning, an 
UNDO command, special text effects 
like slant, twist and rotate, and more in- 
cluded fonts. 

If you have used PP 1.1 to do seri- 
ous layout work, you will probably 
remember how the program redraws 
the entire screen every time an object 
is moved, selected or changed in any 
way. Redrawing complex screens hold- 
ing more than a few objects would slow 
down your creativity to a crawl. The new 
system fixes this Umitation. Now only 
the affected objects on the screen are 
redrawn, making the program vastly 
quicker and easier to use. Objects may 
now also be grouped, making it easier 
to cut, copy and paste more than one 
object at a time. 

Word processor files may be import- 
ed directly from Word Perfect, First 
Word, Regent Word II, and Word 
Writer files. Soft Logic seems to be con- 
fident enough to include Timework's 
Word Write compatibility, even though 



Timeworks is releasing their own desk- 
top pubUshing system. 

Upgrades for PP 1.1 owners are 
available directly from Soft Logik at a 
cost of $99. PP 1.1 will continue to be 
marketed at a lower price, so you will 
have the option to try the lower priced 
package first, then upgrade to PP 
Profession later. 
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The long-awaited U.S. release of Art 
Director and Film Director will have to 
wait a little longer. Art Director is a 
comprehensive drawing package that is 
filled with powerful graphics functions. 
Film Director takes Art Director graph- 
ics and creates animated presentations. 
Both were originally developed in Eu- 
rope two years ago. Broderbund 
showed the programs at the Atarifests 
in 1987, but has decided now not to 
release the products. 

Karateka, a very slick Kung Fu com- 
bat game, is set for a mid- 1988 release. 
This one is a winner. 
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Word Perfect Corp., 1555 N. Technol- 
ogy Way, Orem, UT, 84057, 
(801)227-4288, Broderbund Software, 
17 Paul Drive, San Rafael, CA, 94903, 
(415)479-1170, FTL Games, 6160 Losk 
Blvd., Suite C206, San Diego, CA, 
92121, (619)453-5711, Soft Logik 
Corp., P.O. Box 290071 , St. Louis, MO 
63129, (314)894-8608 

About the author: Frank Cohen 
has been developing Atari programs 
since his first commercial product. 
Clowns & Balloons. When Atari Corp. 
began marketing the 16 Bit St com- 
puter, he founded Regent Software. 
Frank developed Regent Base, an SOL 
4GL database, and is currently involved 
with several other St related productivi- 
ty and small business software pack- 
ages, you may contact Frank directly on 
Delphi (REGENTWARE), Genie (FCO- 
HEN) or CompuServe (72457, 3171). 
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BOOT UP 
TO BIG SAVINGS! 




I YEAR FOR ONLY $28 

SAVE $14 OFF THE COVER PRICE 

1 YEAR WITH DISK OHV[ $105 
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SAVE TIME AND MONEY 
SUBSCRIBE TO ANALOG 

SAVE $14 OFF THE 
COVER PRICE WITH 
THE CONVENIENCE 
OF HAVING ANALOG 
DELIVERED DIRECT- 
LY TO YOUR DOOR 
BEFORE IT EVEN HITS 
THE NEWSSTANDS. 
GET THE MOST OUT 
OF YOUR COMPUTER. 
SUBSCRIBE TO 
ANALOG 
TODAY 



D 1 YEAR @ $28 — SAVE $14! 

FOREIGN — ADD $7 PER YEAR 
D 1 YEAR WITH DISK @ $105 

FOREIGN - ADD $15 PER YEAR 

n PAYMENT ENCLOSED D BILL ME 
CHARGE MY: D VISA D MC # 



MCFYY 
DCFYY 



EXPIRATION DATE SIGNATURE 

MONEY BACK ON ALL UNUSED PORTIONS OF SUBSCRIPTIONS IF NOT SATISFIED. 



NAME 



ADDRESS 



CITY 



STATE 



ZIP 



MAKE CHECK PAYABLE TO LF.P., INC., P.O. Box 16927,'N. Hollywood, CA 91615. Offer expires August 
31, 1988. Your first issue will arrive in 6 TO 8 weel<s. 

WATCH FOR IT! 



BOOT UP 
TO BIG SAVINGS! 




I YEAR FOR ONLY $28 

SAVE $14 OFF THE COVER PRICE 

4 I YEAR WITH DISK OHIY $105 



SAVE TIME AND MONEY 
SUBSCRIBE TO ST-LOG 

SAVE $14 OFF THE 
COVER PRICE WITH 
THE CONVENIENCE 
OF HAVING ST-LOG 
DELIVERED DIRECT- 
LY TO YOUR DOOR 
BEFORE IT EVEN HITS 
THE NEWSSTANDS! 
GET THE MOST OUT 
OF YOUR COMPUTER 
SUBSCRIBE TO 

ST-LOG 

TODAY! 



D 1 YEAR @ $28 — SAVE $14! 

FOREIGN — ADD $7 PER YEAR 
D 1 YEAR WITH DISK @ $105 

FOREIGN — ADD $15 PER YEAR 

D PAYMENT ENCLOSED D BILL ME 
CHARGE MY: D VISA D MC # 
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DCFWW 



EXPIRATION DATE SIGNATURE 

MONEY BACK ON ALL UNUSED PORTIONS OF SUBSCRIPTIONS IF NOT SATISFIED. 



NAME 



ADDRESS 



CITY 



STATE 



ZIP 



MAKE CHECK PAYABLE TO L.FP., INC., P.O. Box 16928, N. Hollywood, CA 91615. Offer expires August 
31, 1988. Your first issue will arrive in 6 to 8 weeks. 



WATCH rOR IT! 
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Circle #1 10 on reader service card. 



